
COLLEEN CALCULATOR, BY C SHAW 


W 


_t itle 'COL LEEN CAUpTffi, BY C SHAW 

ASMBL = 0 




1 irav(Z, 

1=> ASSEMBLE THIS SECTION, 0=> THIS STUFJ 


ATARI CALGULATOR—GARTRIDGE COPYRIGHT 1979 
WORK STARTED 2/20/79 
PROGRAM STARTED 3/14/79 


■ OPERATING SYSTEM EQUATES 


0003 
0007 

-GGOB- 

OOOC 

I-GGGl— 

, 0011 

--0OS2— 


^E4®6-GENTRV5»L-INPUI^ OUTPUT-ROUTINE 
= »E45C iSET SYSTEM TIMERS ROUTINE 


OPEN = 3 
GETCHR = 7 
-PUTCHR—=— 


OPEN FOR INPUT/OUTPUT 
GET CHARACTER(S) 

rPUT CHARACTER (S) 

I CLOSE DEVICE 

-SUCCESSFUL-OPERATION 

i NUMBER OF BYTES PER lOCB 


0053 
0054 
-eq3s — 


Lr,.. ne N 

RMARGN *==*+? 


!BREAK KEY FLAG 


-i-LEFT-MARGIN <0 MIN. ) 


. RIGHT MARGIN (39 MAX. ) 
ROWCRS *=*+L . CURSOR COUNTERS 
-CQLCRE—*=*+# - -- — 


--r-COUNT -DOWM TIMER 3 FLAG 

FO 

1 '■ . CURSOR INHIBIT (00 = CURSOR ON) 

THE ENTIRE lOCB DEFINITIONS HAVE BEEN MODIFIED 


0342 

0343 


0345 

0346 


I/O CONTROL BLOCKS 

HANDLER INDEX NUMBER (FF = lOCB FREE) 
H3EVT^E NUMBER i DRIVE NUMBER) 

COMMAND CODE 

STATUS OF LAST lOCB ACTION 
-BUFFER-ADDRESS-LOW BYTE 

PUT BYTE ROUTINE ADDRESS - 1 


0348 

0349 


ICBAH #=«+! 

ICPTL »-»+! 

-i - e p- T H - #>=#+1 - 

ICBLL *=«+! BUFFER LENGTH LOW BYTE 
ICBLH *=*+1 ' 

-I-e/Ofi--At^X^t^^ARY-^NFQRMATION FIRST BYTE 


034B 

034C 


ICAX2 

ICSPR 


#=•»•+1 

*=#+4 four spare BYTES 


FLOATING POINT SUBROUTINES 


D8E6 

D9AA 


FASC 

IFP 


$DSE6 

$D9AA 


-rFtOATING PT PRECISION-(it OF" BYTES >- - - 

IF CARRY USED THEN CARRY CLEAR => NO ERROR, CARRY SET => ERROR 
i ASCII->FLOATING POINT (FP) 

-HMBUFF+erX—>-FEOr-CM-X-r-eARRY-- 
;FP -> ASCII FRO-> LBUFF (INBUFF) 
















































COLLEEN CALCULATOR, BY C SHAW 


FRO-> LBUFF 


t 


DA60 

DA66 

-DADB- 

DB28 
DD89 
— PB 8 D 

DD98 

DD9C 

—BBA7— 

DDAB 
DOB 6 
DD 4 Q 


DDCO 

DDCC 

DEGD 


OODA 

OOEO 


OOEC 

OOED 


OOEF 
OOFO 
—S©F4— 
00F2 
OOFS 


00F7 
00F9 
—OOFB— 

OOFC 

OOFE 


057F 

0580 

Q5 EQ - 

05E6 

05EC 

QDE6 


FSUB 

FADD 


$DA60 

$DA66 


$DB2a 

$DD89 


$DDAB 

$DDB6 


EXP 

EXPIO 


$DDCO 

*DDCC 


0-$FFFF <LSB,MSB) IN FRO,FR0+1->FR0 
-j-FP—> INTEGER FRO—5^-FRO, FRO+l, GARRY 

iFRO <- FRO - FRl ,CARRY 
iFRO <- FRO + FRl , CARRY 

R1 ,CARRY - 

iFRO <- FRO / FRl .CARRY 
iFLOATING LOAD REGO FRO <- (X, Y) 

- 1 -" " < FRO <- <FLPTR) 

; " ■■ REGl FRl <- (X,Y) 

i " •• ■■ FRl <- (FLPTR) 

iFLOATING STORE REGO (X,Y) <- FRO 
; " " " (FLPTR)<- FRO 

iFRl <- FRO 
-i-FRO <- P < Z) 

INPUT: (X,Y) 

ACC 

FRO = Z - - - -- 

iFRO <- E**FRO = EXP10(FR0 * LOGIO(E)) CARRY 
iFRO <- 10**FR0 CARRY 

-^FRO <- LN<FRO) = L0G10<FR0)/LOGIO(E)-CARRY- 

iFRO <- LOGIO <FRO) CARRY 

~ THE FOLLOWING ARE IN BASIC CARTRIDGE:- - 

iFRO <- SIN(FRO) DEGFLG=0 =>RADS, 6=>DE0. CARRY 
iFRO <- COS(FRO) CARRY 

-i-FRO-<- ATiAN( FRO ) CARRY - - - - 

iFRO <- SQUAREROOT(FRO) CARRY 


SUM(I=N TO O) <A(I)*Z«^I4-CARRY 

A(N),A<N~1). . . A<0) -> PLYARG 

# OF COEFFICIENTS = DEGREE+1 


i FLOATING POINT ROUTINES ZERO PAGE (NEEDED ONLY IF F. P. ROUTINES ARE CALLED) 
»=$D4 

i FP--REGO- -- 


FRE 

FRl 

FRX 

EEXP 


-*-*+FPffEC- 

*=*+FPREC 

»=#+FPREC 

^^-#+FPREC- 

*=*+1 

#=»+! 


ESIGN »=»+! 
FCHRFLG ■)<■=#+1 

-^TGRY-1— 

#=■)(■+1 


CIX 

INBUFF 
—2TEMPI- 
ZTEMP4 
ZTEMP3 
-R^ADFtG- 

FLPTR 

FPTR2 


iFP REGl 

iFP SPARE 
i VALUE OF E 
I SIGN OF # - 

i SIGN OF EXPONENT 
i 1ST CHAR FLAG 

i# OF DIGITS RIGHT OF DECIMAL 
iCURRENT INPUT INDEX 
iPOINTS TO USER'S LINE INPUT BUFFER 


*=*+2 

*=#+2 


»=*+2 

•h-=-»+2 


-,-0=RADIAN9, 6=DE6REES 
iPOINTS TO USER'S FLOATING PT NUMBER 


iFLOATING PT ROUTINES' NON-ZERO PAGE RAM (NEEDED ONLY IF F. P. ROUTINES CALLED) 
»=«57E 

LBP R l --rtrDUFF PREF-LX” 1- - . . - - 

*=*+1 iLBUFF PREFIX 2 

*=*+128 iLINE BUFFER 

-tSOF^^feO-7 POLYNOMIAL ARGUMENTS- - ^ 


LBPR2 
LBUFF 
-PLYARG^^^ 
FPSCR 
FPSCRl = 
-FS(^R-=- 


PLYARG+FPREC 
FPSCR+FPREC 
-F P8 C R- 
















































COLLEEN CALCULATOR. BY C SHAW 


0200 

0201 

^>20A 


AUDFl 

AU0C1 

-RANBOM- 


^0200 

AU0F1+1 

-A BD F- l r» 10 


- eOLLECN 
iSOUNB REG 1 FREQUENCY 
i SOUND REG 1 CONTROL 
;-B B-IT-R ANBOM NUMBER 

























COLLEEN CALCULATOR, BY C SHAW 


-UNiVERSAt EQUATES- 


OUTPUT = 


CIO COMMANDS 
^-AU)fl-QN-OPEN^ 
;AUX1 ON OPEN 


OOIB 

OOlC 

ESC 

UPAROW 

nkiADi-ii.i 

= 

$1B 

ESC+1 

SPECIAL-CHARS IN ATARI- 

UP ARROW (CONTROL CHAF 
DOWN 

OOIE 

OOIF 

-t/INRnUW^ 

LFAROW 

RTAROW 

= 

ESC+3 

ESC+4 

LEFT 

RIGHT 

CLEAR SCREEN 

! 007E 

BACKSP 

= 

CLS+1 

BACKSP 

I 007F 

TAB 

- 

CLS+2 

--^-CARRIAGE RETURN 


009C 

009D 


DELLIN = 
INSLIN = 

CR+1 

CR+2 

;DELETE LINE 
iINSERT LINE 
» CLEAR TAB 

009F 

OOFE 


SETTAB = 
DELCHR = 

CR+4 

$FE 

T\Cri 

iSET TAB 
iDELETE CHAR 

^TMCCDT rUAD — 

1-..—-—-jyc^v/nTT-*-- i ainwi-ixi wi iniA 





FP PACKAGE EQUATES FOR SIN, COS, ATAN, AND SQR ROUTINES ETC 

OOOB 


NATCF 

$B 

—>-ASCT I CONVERSION - - - — - 

- DA51- 

D920 


XEFORM = 

$D920 

;FOR FP -> ASCII CONVERSION 

-DE9^- 

DF6C 


FHALF 

$DF6C 


DFAE 


ATCOEF = 

$DFAE 


DFFO 


PiaV4 

$DFFO 


0006 


NSCF 

6 














































COLLEEN CALCULATOR, BY C SHAW 


% 


CALCULATOR EQUATES 



0001 

0026 

LMARG 

RMARO 


1 

38 

j LMARGN VALUE 

i-LENGTH OF LINE ON SCREEN 


<• 

0016 

ROWCMD 


22 

iROWCRS FOR COMMANDS 
;GQLCRS FOR COMMANDS 


% ! 

0001 

0005 

ROWSTT 

ROWREG 

= 

1 

5 

iROW # FOR STATUS 
iROW FOR STACK, MEM REGS 
iTOP ROW FOR SCROLLING 



0000 

SIOCB 

= 

0#I0CBSZ 

;SCREEN lOCB # (SET UP BY OS) 

;KEYBOARD lOCB # 



0020 

0030 

PIOCB 

TIOCB 


2*I0CBSZ 

3*IDCBSZ 

iPRINTER lOCB # 

iTEMP lOCB # (USED FOR FILE I/O) 



OOOD 

OOSF 

TOKCLN 

SLASH 

= 

TOKEND-TOKCHR-1 iLENGTH OF TOKCHR-1 

STAR+1 


*1 

0091 

0092 

MINUS 

LPAR 


STAR+3 

STAR+4 



# 

0094 

0095 

EQUAL 

LPAD 

Kii iiwinco 

: 

STAR+6 

STAR+7 

g-f^p+0 



0 1 

OOOE 

PSPEC 

= 

14 

iPRIORITY OF SPECIAL 0-VAR FNS (PRINT, ETC.) 

. PQTJIBTTV- np -RTWGI-P (JAR PMR 


f 

OOOA 

0009 

PSPEC2 

PPDWER 

= 

10 

9 

SPECIAL 2-VAR FNS 

POWER, ROOT 

1 

-0008- 

0007 

-PT-tMES— 

, PPLUS 


7 

+ - 


1 

0006 

PAND 


6 




0002 

PLRPAR 

= 

2 

( ) 



0001 

-OAQO - 

PEQUAL 


1 

—G--- - 

BOTTOM OF STACK SYMBOL 



I QQiQ NUMLEN = 16 iLENGTH OF NUMBER IN ASCII FORMAT 

1 _ 9Q2A- _FFStEN_ = _ -42— - i LENGTH OF FPSTK IN FP NUMBERS 

QIQQ OPSLEN = 256 iLENGTH OF OPSTK IN OPERANDS 

0064 MEMLEN = 100 ; LENGTH OF MEMORY AREA IN FP NUMBERS 

,_002^ _ -_T-oKL-EN— -b-I-NLEN i LENGTH OF TOKBUF IN CHARS 

K 0400 PRGLEN = 1024 ;PROGRAM MEMORY LENGTH IN BYTES 

OOOF PCIMAX - PRGMEM/256+3 i MAX PC+1 VALUE 

-0006- SPeL-EN- -^ -SF^ND-SPCTBL-1 ; LENGTH OF SPCTBL - 1 


;GRADON = 12 


;DEGREE FLAG SETTING FOR GRAD 


; COLUMN NUMBERS FOR LINE 0 STATUS DISPLAY 

0006 DALG = 3+3 

OOOB-DDEG-=-B+3—-- 

0010 DDEC = 13+3 

0018 DBITS = 21+3 

001E -DFI-X-- -33-6+3- ’ 

0020 DOFF = 35-6+3 




















































COLLEEN CALCULATOR, BY C SHAW 


RAM PAGE ZERO 


*=$80 

0080 ZROPG 

0081 TOKCOD *=*+1 

0082 TOKPTR *=*+2 

TOKEN CODE 

POINTER TO NEXT TOKBUF LOC 

0086 TOKTIN *=*+! ;INDEX TO TOKTMP (0-2) 

1 DHOFLG *=*+1 iO=> DEC, 16=>HEX, 8=>0CT, 2=>BIN 

1_^rVQQ___ l/crv//^l_ic» v> ^^ t ___ ____ - - - ' 

WWW-rfcrrvTTTR- tt—■- w-r j.-j 

0089 KEYLEN *=*+1 

008A KEYLN2 *=*+1 

LENGTH OF CURRENT KEY WORD 

KEY LENGTH (MODIFIED BY LDCHR FOR 2 NIBBLE CHARS) 

008C CLRPTR ’ 

008C PKPTR *s=#+2 

OPRF KYLFRT *+l 

REG--Y SAVED FOR LDNIB i 

I FOR RAM CLEAR 

POINTER TO PACKED CHAR STRING (USED BY LDNIB) 

008F KEYCNT *=*+1 

0090 KYPTSV #=»+2 

1-0092 PLR6'' *-*+1 

r-LFPT FOR BE(MNNING OF WORD 

KEY WORD NUMBER 

KEYPTR SAVED FOR LONGEST MATCH 

1 0093 KYCNSV *=*+1 

1 0094 KMATCH *=*+1 

1-0095--UMPT-R4-*=*+2- ; 

KEYCNT 

# OF CHARS WHICH MATCH IN SAVED KEYWORD 

^-INDEX-FOR- SUBROUTINE-JUMP- -- - - 


JMPTR2 *=*+2 



FIXFLG *=#+1 
PRMFLG *=*+1 
-PR NFL - G - -*=*+ 1 - 
OPFLG *=*+1 
NOPFLG #=*+1 


PREVOP *=*+1 
PRVPRI *=*+1 

FPPTR *=*+1 
OPPTR *=*+1 


HINT *=*+1 
DAYTMP 

C H R 1 ND_ 

COUNT 

LOP 


+ 1 


NUMFLO *=*+1 
ASAVE *=•«•+1 


O^AL-GN- 

ALGEBRAIC, OPERATOR PRECEDENCE 

ALGEBRAIC, SAME PRECEDENCE FOR 2 VAR OPERATORS 
►“->-NOEXP-ONLES& NECESSARY, - ^G-I^NTIFIC ALWAYS,- 2=>ENG - 

;9=> NOT FIXED, 0-8 => DIGITS AFTER DECIMAL PT. 

;1=> PROMPT 

-il=>FRINT-- ~ - - 

1=>PREVI0US TOKEN WAS AN OPERATOR 

NEW OPFLG 1=> CURRENT TOKEN IS OPERATOR 

1=>-^ISPLAY INTERMEDIATE RESULTS - - - 

iPREVIOUS OPERATOR TOKEN CODE 
; " " PRIORITY (PRECEDENCE) 

7 CURRENT " " - - - - 

;FPSTK POINTER (STARTS AT 0) 

;OPSTK " " " " 

iTEMP VAR FOR OPSTK PROCESSING LOOP, 1=>DISPLAY X-WHEN DONE - 
i1-32: NUMBER OF BITS IN OCTAL & HEX ARITHMETIC 
;TEMP VAR FOR DAYSUB 

rINDEX INTO CHRTAB ~ .- -_ 

;TEMP COUNT VAR 

iFOR SAND, SOR, SXOR 0=>AND, 1=>0R, 2=> XOR 

EQR-SRSHF,-SLSHF 0=>LEFT, 1=>RIGHT - 

TEMP VAR (ALL OF ABOVE) 

PL=> POSITIVE, MI=>NEGATIVE NUMBER 
C>=->X“ 


f 

♦ 

1 ^ 

r 

r 


BOTH INTEGER IN ROOT,POWER 
;1=>-PREVI0US THING DISPLAYED WAS A NUMBER 
iREG A SAVE LOC 


YSAVE *=*+1 
MEMNUM #=#+1 
PRV9T K.1 


i MEMORY NUMBER 

-FOR-DSPSTKt PREVIOUS-R owe RS VALUE AT END OF“STACK 


BITBIN #=*+4 
-SI-TSN2—»= w + 4 - 


BINMIN *=*+4 
BINARY *=*+4 


J 2-^(BITINT-l )-l 
; ( 2'^BITINT) ~ 1 - 


i-(2'' (BITINT-1) ) MSB-LSB 
,FR0 IN BINARY FORMAT 


COMP(BITBIN) 



































































COLLEEN CALCULATORi BY C SHAW 



OOCD 

OOCE 

nAPF* 

SEFORM 

FIXNUM 

VIAKf*ri Kl 

#=■»■+ 1 

- 

OODO 

-rtrit^rf c.»tN— 

SSIGN 

—■!?—1 - 

*=*+1 

OODl 

SMSD 

#=*+1 

00D2 

/'nMtri n 


1 00D3 

WlJIMP L.9 

SCONFG 

■»•=«•+1 


OOCC 


SSTOLD «=*+! 


iSECOND BINARY # 


iSIN QUADRANT FLAG 

-r-FMROGRAM COUNTER LSD, MSB (INIT TO PRGMEM) 


-»-0»>TMMEDtATE MODE,—1=>ST0RING PROG, 2=0-EXECUTING- 

i1 => TRACE ON (DISPLAY ALL PROGRAM EXECUTION) 
i1=> DO NOT DISPLAY OR PRINT ANYTHING (PROGRAM EXECUTING) 

,-t*>DO SIWGtE STEP (EXECUTE ONE INSTRUCTION)^- - 

iSSTFLG FROM PREVIOUS LOOP 

FP TO ASCII CONVERSION VARS 
;1=>EF0RM 
iFIX 0«-9 

- L E NGTH H3F -MANTISSA 

iBIT 8 IS SIGN BIT 

;SAVE MSD OF FRO (FRO+1) 

t-OONVERSIQN MSG LSB 

,• SAVED CONFLG FROM PREVIOUS LOOP 


—hFLeATING POINT RAM 






























COLLEEN CALCULATOR- BY C SHAW 


#=$500 


0500 TOKBUF *=*+TOKLEl\| ; TOKEN STRING BUFFER 

»=LBPR1 jFLOATING POINT _ 

-- #=1600 ->- 

0600 FPSTK *=FPSLEN*FPREC+* ;FLOATING POINT NUMBER STACK 

_ 1 /256 -K L *5B6-i-GG—TQ-NEXT- PAGE BOUNDARY- 

0700 OPSTK it^'SH-OPBLEN 

*=*-1/256+1*256 

_08©0-MEMORY—^J-=MEMLEN*FPREG+*- 

*=*-1/256+1*256 

OBOO BLKBUF *=*+LINLEN ; ALL BLANKS 

0B2 6-G-T-LRS--*=*+ L -I- N LEN- ; ALL-CTRL-R'S (HORIZ. LINES) 

0B4C MODFAC *=*+FPREC iINT (Y/X) AFTER MOD 

OB52 FTEMP *=*+FPREC ;MY OWN TEMP F. P. REG 

- -FTEMP2- -*=*+FFREC-; ANOTHER TEMP FP REG 

OB5E FPX *=*+FPREC ;X REG SAVED DURING STORE PROGRAM MODE 

-0B64-LDGSAV-*^+4- ;-SAVE PART CHAR FOR LDCHAR 

0B65 XSAVE2 *=*+1 iSAVE X REG FOR DEGREE CONVERSION 

0B66 YSAVE2 *=*+1 ;SAVE Y REG 

--0B67- -^DUEFLG-*=*+^1- rO -=> ANNUITY DUE/FV, 1=>0RDINARY ANNUITY/FV 

i 2 => ANNUITY DUE/PV- 3 => ORDINARY ANNUITY/PV 

0B68 ANNFLG *=*+1 ;0 ==> ANNUITY, 1=> COMPOUND INTEREST 

-0BS9 - ENTF L G -*=*+4- -j-0-=>-ENTtR VALUE^—l => FIND VALUE (FOR INTEREST E<JNS. ) 

0B6A ITER *=*+1 i ITERATION COUNTER FOR FINDING INTEREST 

0B6B DMFLG *=*+1 ;1=>D0N'T DISPLAY MEM, EVEN IN MEM AREA 

0B6C-ERRFLG-*=*-Kl- ; 1=>ALREADY-HAVE DISPLAYED ERROR MSG, DQN-'T DO MORE - 

0B6D MEMFLG *=*+1 ; 0=>ADD (SIGMA PLUS), 1=>SUB (SIGMA MINUS) 

0B6E CALPTR *=*+1 iPOINTER TO CALSTK 

__- ^ -* = BLKBUF+$8Q-i-USE-SEGQND HALF OF PAGE - 

OBSO CALSTK *=*+$80 ;SUBROUTINE CALL STACK (128/2 = 64 CALLS DEEP) 

— ^-—— - - -*=*-17256+1*256 - - 

OCOO PRGMEM *=*+PRGLEN ; USER PROGRAM MEMORY 






























































COLLEEN CALCULATOR, 



9FFA 00 00 FF 
9FFD 00 00 00 

. BYTE 

0, 0, $FF, 0, 0, 0 ; 

<0 

'■ initialization 



<• 

9800 A2 00 

9802 8A 

-^980-3- 

LDX 

TXA 

#0 


9803 95 80 

9805 E8 

-9806—1-0—FB 

STA 

INX 

ZROPG,X 


9808 AO 05 

-980A A2 10- 

LDY 

-1NTT2 - 

#T0KBUF/256 


980C 20 C4 A3 

USR 

RAMCLR 


9811 85 52 

9813 8D FO 02 
-9816 A9 26 

STA 

STA 

-#LMARO— -i-i 

LMARGN 

CRSINH ;■ 

*1 

9818 85 53 

STA 

-#RMARQ- 

RMARGN 


NO CARTRIDGE 


CARTRIDGE COLD/WARM START LOC 
CLEAR ZERO PAGE RAM (*eO-*FF) 


;CLEAR NON-ZERO-PAGE RAM 


981A A2 10 
981C A9 03 


LDX 

LDA 


ttKIOCB 

#OPEN 


SET UP MARGINS 
OO => INHIBIT CURSOR 


OPEN -KEYBOARD,-(SCREEN OPENED BY OS 1 


% 

# 

# 

# 

« 

c 


0 

9821 A9 BE 

9823 9D 44 03 
-9826 A9 B6- 

LDA 

STA 

--TCOOM, X - 

#KBUFF 

ICBAL,X 
_#KBUFF-/-256 - 



1 


9828 9D 45 03 
982B A9 04 

-982D 9D 4A 03- 

STA 

LDA 

ICBAH, X 
#INPUT 




'f 

9830 20 56 E4 

JSR 

CIOV 

CHECK FOR ERROR???? 



0 

9833 A9 09 

9835 85 CE 

LDA 

STA 

#9 

FIXNUM 

i INIT TO FIX 9 



'[ 

9837 A9 95 

9839 20 Cl A2 

LDA 
: JSR 

#LPAD 

PUSHOP 

i INIT OPERATOR STACK WITH LPAD ON 

BOTTOM 



983E 85 83 

-—gg—AP- 

STA 

#T0KBUP7® 100 
TOKPTR+1 




1 

9843 A2 25 

LDX 

SCLPRQ 

#LINLEN-1 

rINI"TIALIZE PC TO START OF PRGMEM 

; INIT BLKBUF S< CTLRS 

ANO CLEAR PRGMEM TO ALL STP'S 



9845 A9 20 

9847 9D 00 OB 

-QQAA AQ-- 

LDA 

STA 

#' 

BLKBUF, X 





9840 9D 26 OB 

984F CA 

STA 

DEX 

CTLRS,X 





TOsJU lU r»J 

9852 20 16 A6 

JSR 

SALG 

i DEFAULT IS ALGEBRAIC WITH OPERATOR PRECEDENCE 



COLLEEN CALCULATOR, BY C SHAW 















































JSR 


SALG 


COLLEEN CALCULATOR, BY C SHAW 


L. 


9855 A9 10 

LDA 

#16 




9a5A A9 FD 

LDA 

#STATLN 


9a5E 20 4F 9C 

9a61 20 5E A3 

JSR 

JSR 

SETMSG 

PUTCHS 



9364 A2 00 

9866 20 31 A3 

LDX 

JSR 

#0 

PTLINl 



9869 A9 37 

LDA 

ttSTKLIN 





^tST"KL TN7256 



986D 20 4F 9C 

JSR 

SETMSG 



9870 20 5E A3 

JSR 

PUTCHS 



9873 A2 03 

LDX 

#3 



9875 20 31 A3 

JSR 

PTLINl 



9878 A2 00 

LDX 

#0 

w 


987A 

PTLP 




9B7C A9 7C 

LDA 

#°1 

9 


9878 20 F2 A2 

JSR 

PTCHR 



9883 BD D5 B6 

LDA 

CHTAB2,X 

9 


9886 20 F2 A2 

JSR 

PTCHR 








9880 A9 7C 

LDA 

#' 1 

9 


9888 20 F2 A2 * 

JSR 

PTCHR 



9893 18 

CLC 


C 


9894 69 30 

ADC 

#'0 

PTGHR - - 



9899 A2 11 

LDX 

#17 

9 


989B 20 5A A3 

JSR 

BLNKS 



—909E A9 7C- 





98A0 20 F2 A2 

JSR 

PTCHR 

9 


98A3 A6 AS 

LDX 

TO 

» 


98A6 EO OA 

CPX 

#10 


98AS DO DO 

BNE 

PTLP 



9eAA A2 06 

LDX 

#6 

. 4 


98AC 20 31 A3 

JSR 

PTLINl 

1 


98AF 20 51 9D 

JSR 

DSPSTK 

■ 1 


98B2 20 IB A7 

JSR 

DMCLR 



9885 20 DD 9E- 

JSR 

-FiDSCQM 


98B8 A9 01 
-9aBA-8^A0 


LDA 

-TTA- 


r 


i DEFAULT IS 


ALGEBRAIC 


WITH 


OPERATOR PRECEDENCE 


—INIT SCREEN DISPLAY^ 
iLINE 0-1 "ALG RAD 


;LINE 2 

iLINE 3 "I STACK I REG . . . 

i SET UP MESSAGE IN TOKBUF 

i LINE 4 

i LINES 5-14 "IX 10 01" 

; X, Y, Z. T, OR BLANK 




iLINE 15 


iDISPLAY STACK (ONLY HAVE X=0) 
;DISPLAY O'S IN MEM AREA 
-liJISPLAV^ X = O-IN-SCROLL AREA 


-rDISPLAY INTERMEDIATE RESULTS'IN ALGP 







































COLLEEN CALCULATOR, BY C SHAW 


L 


98BC 

9 B BC AD-FO-< 

98BF C9 00 
98C1 DO 11 


98C3 EE FO 02 
98C6 A9 80 

-98 C8 -8^-^- 

98CA A5 C8 
98CC 29 01 
98CE 20 -^ 4 - AD 
98D1 20 73 9E 
98D4 


98D6 C9 01 
98DS FO 03 


CMP 

BNE 


INC 

LDA 


LDA 

AND 


#$0 

MAIN02 


CRSINH 

#$80 


CMP 

BEQ 


ttSTOPRG 
MAIN03 
-IMOS-TOR- - 


I BREAK-KEY- HIT? 


JINHIBIT CURSOR 
iYES. CLEAR FLAG 


iSTOP PROGRAM EXECUTION 


^-DISPLAY STACK, CHANGE PROG 
iDISPLAY CURRENT X IN SCROLL AREA 


;STORE PROGRAM? 


9SE0 20 79 9A 


STORE PROGRAM MODE 


;DISPLAY OLD VALUE IN PROGRAM LOC 
i GET NEXT TOKEN FROM PROGRAM MEM 


98E6 A5 81 


98EA 

98EA DD B4 B6 


TOKCOD 
-#SPCt€N-- 


SPCTBL, X 
-LOeP4-- 


9SEF A9 00 
-98 F1 85 AB- 

9SF3 A9 16 
98F5 85 54 

-98F7-8S-5S- 

9SF9 A4 82 
9SFB 20 F6 9D 


LDA 

—STA— 
LDA 
STA 
-STA 
LDY 
JSR 


#0 

-IMUMFLG 

#22 

ROWCRS 
- eOLCRS 
TOKPTR 
PUTCMD 


iCHECK FOR SPECIAL COMMAND 


iSPECIAL COMMAND FOUND 
iALWAYS-ON SEPARATE LINE 


;DISPLAY COMMAND 


tsvt cnf 

9901 A5 81 

LDA 

TOKCOD 



9903 20 C5 AO 

JSR 

SUBCAL 


iCALL SUBROUTINE 

-9906—4S BC 98 

-JMP- 

LOOP 


;CONTINUE 

1 9909 

L00P4 




-9909 CA- 





, 990A 10 DE 

BPL 

LD0P3 


;TRY NEXT ONE 

1 -990e- C9 96- 

CTtP- 

#NUMBE1^ 


iNOT SPECIAL COMMAND => SAVE I 

1 990E DO 24 

BNE 

STPR40 


; NO. 

1 9910 20 62 A2 

JSR 

PCNCHK 


i CHECK PC TO SEE IF ROOM FOR NUMBER 

-99113 BO-A7 

BCS— 

LOOP 


terror END OF MEM 

9915 20 A7 DD 

JSR 

FSTOR 


;STORE FRO IN PRGMEM 

1-991^AO-07- 

-LDY- 

"#FPRE,C“H 



1 991A A9 96 

LDA 

#NUMBER 



1 991C 91 C6 

STA 

(PC), Y 




Ao - eo - 

9920 91 C6 
9922 20 7A A2 


STA 

JSR 


(PC), Y 
PCADDN 


;MOVE PC PAST NUMBER 


COLLEEN CALCULATOR, BY C SHAW 






































VYcJc: ciu /A Ay 


PCADDN 


J MOVE PC PAST NUMBER 


COLLEEN CALCULATOR, BY C SHAW 


9925 20 AO 9E 
- ^928 A9 16 - 


992A 85 54 
992C 85 55 
992E 20 07 9E 


JSR 

- LDA 

STA 
ST A 
- USR 

JMP 


TOKNUM 
-#22- 

ROWCRS 

CPLCRS 

D07Q 

STPR51 


iP4^TX T P- TO K BU f=^ 


9931 4C 46 99 


-^ 93 4- 


9934 AO 00 
9936 91 C6 
993 8 20 7 -6 A2 


-S T P R 4 Q 


LDY 

STA 

-USR- 


#0 

< PC ),Y 
H^OTNC— 


-+NOT^ A NUMBER- 


- 99 3B- 

993B A9 16 
993D 85 54 
993F 85 5 5- 

9941 A4 82 
9943 20 F6 9D 
99 46- 

9946 20 85 A3 


STPR5 0 


LDA 

STA 

-STA- 


-STPR5^ 


LDY 

JSR 


JSR 


#22 

ROWCRS 

-GOLORS- 

TOKPTR 

PUTCMD 

PUTCRP 


;DISPLAY NEW TOKEN AFTER OLD 


iPUT CR ON PRINTER (IF ON) 


99 4 9 4 C B€—9a 


^JMP^ 


-t=80P 













































COLLEEN CALCULATOR. BY C SHAW 


994C_ 

994C 20 51 9D 


NOSTOR 


9951 85 D3 


-GONFLO- 

SCONFG 


9956 90 03 
9958 4C BC 98 
-9 95B - 


BCC 

UMP 


N0ST02 

LOOP 


995B 20 D2 A2 


995E A9 00 
9960 85 9F 


LDA 

STA 


#0 

NDPFLG 


9964 86 CC 
9966 85 CB 
- 99 6 8 A5 8 1 


STX 

STA 


996A C9 96 
996C DO 13 


996E A5 99 
9970 DO 06 


CMP 

BNE 


LDA 

BNE 


9975 20 AA AO 
9978 


-^STFtO— 

SSTOLD 
SSTFLG 
-T0KG9D - 
#NUMBER 
MAINOS 

RPNALG 
MAIN04 
- FLDIT — 
FPUSHl 


997B 20 73 9E 
997E 4C 48 9A 


--USR- 
JSR 
JMP 


9981 

9981 20 EE 9C 
-99S4-AO-OG- 

9986 84 AB 


JSR 

-LDY- 


—POTDEt— 
FDSPO 
ENDLP 


DSPCOM 
-#o - 
NUMFLG 


-' NOT STORE PROGRAM MODE 

I DISPLAY STACK 

-SAVE CONVERSION INDICATOR 


-EXEC ERROR (OUT OF EXEC MODE) 


f 

c 

f 

f 

« 


NUMBER? 
NO. SKIP 


RPN? 
; NO. 


YES. SAVE PREVIOUS # ON STACK 
CONVERT BACK TO ASCII AND DISPLAY 


:NOT NUMBER 
;DISPLAY COMMAND 




998A 20 D2 A1 
998D 85 A3 

-99eF~C9-0D- 

9991 90 11 


-A5 81 


9995 20 C5 AO 
9998 A5 A3 

■ -999A~e9-0D - 

999C DO 03 
999E 20 5D 9E 

- 99m - 

99A1 4C 48 9A 


—tDA- 

JSR 

STA 

—^MP— 
BCC 

LDA— 

JSR 

LDA 

-~CMF-- 

BNE 

JSR 


-TQKGOD- 

GETPRI 
CURPRI 
—#Pf4IGH 
MAIN40 


—TOKCOD - 
SUBCAL 
CURPRI 
--#PHI©H“ 
MAIN35 
FDSCOM 

ENDLP 


9 9A4 - 

99A4 A6 99 
99A6 DO 17 
-99A8-09-03 — 

99AA BO 08 
99AC A9 OD 
99 A E 2 0 E 5-9 B - 

99B1 4C 4C 9A 


LDX 

BNE 


BCS 

LDA 

-JSR- 


RPNALG 
MAIN60 
-#PtRPTAR+l 
MAIN50 
#KEYMSG 
-ERRSOB- 


-SPECIAL OR HIGH 
- EXECUTE SUBROUTINE 


, ( ) - N OT- LEGAL - IN RPN - 
















































l: 


99B4 

-99B4-A5-ei- 

99B6 20 C5 AO 
99B9 20 5D 9E 
-99Be-4e-4G-9>A - 


JSR 

JSR 

-xJW 


SUBCAL 

FDSCOM 

-ENDbP3- 


99BF A6 81 
99C1 EO 92 

- 99C3 - FQ -IB- 

99C5 C9 03 
99C7 90 02 
--99G9 -E<5>-9F 
99CB 

99GB A6 9E 

J99GB-FO-OB- 

99CF A9 00 
99D1 20 E5 9B 
—99B4 -2<>-B 0-A2- 

99D7 20 75 AO 


LDX 

CPX 

HBEG- 

CMP 

BCG 

-tNG- 


LDX 

BEQ- 

LDA 

JSR 


# 

99DA 

A5 

81 



99DC 

99DC 

C9 

92 

MAIN76 


99E0 

99E3 

20 

E6 

Cl A2 

9F 



99E8 

99E8 

A9 

48 9A—— 

00 . 

MAIN80 


TOIXCOD 

#LPAR 

MAIW70 

#PLRPAR+1 

MAIN65 

NOPFLG 

OP FLO 
MA^IN70 
#TOPMSG 
ERRSUB 


FPOPl 


CMP 

-BNE^- 

JSR 

INC 

JMF- 


#LPAR 

-MAI-N80~- 

PUSHOP 

NQPFLG 


- 99E A e5 - A 6 - 


LDA 

STA- 


99EC 

99EC - 2Q -BQ-A2- 

99EF 85 A1 
99F1 20 D2 A1 
-99F4 a5-A2- 


99F6 A5 81 

99 F8-^9-93- 

99FA DO 19 
99FC A5 A1 
- 7 9 FE C9 92 - 

9A00 FO 3F 
9A02 C9 95 
9 A04 DO 06 - 

9A06 20 Cl A2 
9A09 4C 41 9A 
9 A0 €- 

9A0C 20 C5 AO 
9A0F 20 FO A1 
-9At2-4€-EC-^9— 


9A15 

9A1D C 9 9 4 - 

9A17 DO 06 


—JSR^ 
STA 
JSR 
—STA 


LDA 

C-MP- 

BNE 

LDA 

-€MP- 


BEQ 

CMP 

-BNE- 

JSR 

JMP 



JSR 
JSR 
-JMP- - 


SUBCAL 
INTDSP 
-WtOQP- 


.EXECUTE SUBROUTINE 


iNOT RPN 

CHECK FOR 2 OPS IN A ROW 
;OP CAN BE FOLLOWED BY ' ( ' 


) ')' AND CAN BE FOLLOWED BY OP 

)2-VAR OPERATOR 


;2 OPS IN A ROW IS ILLEGAL: THIS TIME IGNORE 1ST OP 

I DISCARD PREV OP - 

;DISCARD EXTRA # 


;PUSH LPAR 


iTOKCOD =RPAR 
iPREVOP=LPAR 


;EXECUTE SUBROUTINE 





















































COLLEEN CALCULATORI BY C SHAW 


VA19 A5 A1 
-9AT^ -e9 -92- 

9A1D FO CD 
9A1F 

-9A-1F-A 5 A2- 

9A21 C5 A3 
9A23 90 OB 
-9Aa 5 - A5 A ^- 

9A27 20 C5 AO 
9A2A 20 FO A1 
-9A2D-4C-EC 99- 


LDA PREVOP 

-CMP-#bPAR- 

BEQ WLOOP 

WLP20 

-LDA- mVPRl 

CMP CURPRI 

BCC WLP30 

-- l=DA-FR EVOP 

JSR SUBCAL 

JSR INTDSP 

-JMP--WLOOP- 


9A30 

-9 A 3 G - A5 -A4- 

9A32 20 Cl A2 
9A35 A5 81 
-9A3-7- & 9 - 94- 

9A39 FO 06 
9A3B 20 Cl A2 
- 9A3E 20 9C A Q- 


WLP30 

-I=©A-FREVOP- 

JSR PUSHOP 

LDA TOKCOD 

-CMP-#EQUAL- 

BEQ ENDWLP 

JSR PUSHOP 

-JSR- FPUS H Q - 


9A41 ENDWLP 

9A41 A5 A6 LDA DISP 

- 9A 4 3 F&-03-BEQ-ENDLF- 

9A45 20 5D 9E JSR FDSCOM 


-9A48- 


9A48 A5 9F 

9A4A 85 9E 

r-Kir\i 

LDA 

STA 

NOPFLG 

OPFLG 

9A4C A5 CC 

9A4E FO 06 , 

-■fcrNi7i:;r*t3 

LDA 

BEQ 

SSTOLD 

ENDLP4 

——-9A50—A9-G0 

9A52 85 C8 

9A54 85 CB 

i“hir\i r» A 

LOA 

STA 

STA 

PROG 

SSTFLG 

9A56 A5 D2 

9A5e 38 


LDA 

SEC 

CONFLG 

ci2.ruwiiry:\ 

/(nDV L.O L/wi 

9A5B DO 02 

9A5D 85 D2 

_ Q A er* __ 

r-rvrf-M/ 

BNE 

STA 

EDSKP2 

CONFLG 

r — 

9A5F 4C BC 98 


JMP 

LOOP 


jNOT (TOKCOD = EQUAL AND PREVOP = LPAR) 


-f PRVPRI>*eURPRI 
i EXECUTE SUBROUTINE 


;PRVPRI<CURPRI 


iSINGLE STEP? 

; NO. 

rYES.- GO BACK TO IMMEDIATE MODE 


rCONFLG SAME ON THIS PREVIOUS LOOP (SET OR CLEAR)? 
;NO. NO CHANGE NOW 

iYES. CLEAR (NO LONGER DOING CONVERSION) 


END OF MAIN PROGRAM LOOP 





















































COLLEEN CALCULATOR, BY C SHAW 


L„ 


LEXICAL ANALYZER 


FETCH NEXT TOKEN FROM TERMINAL AND 

SET UP TOKEN CODE IN TOKCOD, PUT STRING IN TOKBUF 


9A62 


9A64 8D FO 02 
9A67 A9 02 

9 A6 9 8 5 -^- 

9A6B A9 17 
9A6D 85 54 
9 A6 F A 9 3 E- 


-#0- 


STA 
LDA 
- ST A 


9A71 20 F2 A2 


LDA 

STA 

-LBAh- 


CRSINH 
#LMARG+1 
-COLGRS— 
#23 

ROWCRS 

- - 


1 SUBROUTINE TO DISPLAY 
iCURSOR ON 


SET UP CURSOR 




PTC HR 


;START AT BOTTOM OF SCREEN 
xTEST CHAR 


-9A74 -A9L-00 ~ 


9A76 85 82 
9A78 60 


STA 

RTS 


- 

TOKPTR 


9A79 A9 00 
9A7B 8D 6C OB 


LDA 

STA 


;CLEAR FLAG => NO ERROR THIS TIME 


9A7E A5 C8 
9A80 C9 02 
9A82 DO 


LDA 

CMP 

-BNE— 


PROG 

#EXEC 

- NOEXEC ^ 


9A84 20 3C A2 
9A87 BO OB 
9A 89H 


USR 

BCS 


NCHKLD 

EXEC20 

HEXECIO- 


9A8B 4C 7A A2 
9A8E 

9A8 E 20 - 7 6- A 2- 


;EXECUTING PROGRAM? 
i NOt 

iYES. LOAD TOKEN AND CHECK FOR NUMBER 
iERROR 
i NOT NUMBER 

/NUMBER MOVE PC PAST # 


9A91 20 61 A4 
9A94 

9A9 4- 6 0- 


-pcrNG- 

UNPKEY 


iNOT NUMBER 
iUNPACK KEYWORD 


9A95 

9A95 20 62 9A 
-9A98-20 -E8-A0^ 


9A9B C9 20 
9A9D FO DA 
-^ A9F € 9^^ 


JSR 

dSR 

CMP 

BEQ 

-CMP 


LXINIT 

GTCHR 

#' 

LEX 

-frDEbLrlN 


/DISPLAY O' / INIT CURSOR 
/A=NEXT CHAR 


• 

e 

c 

c 

# 









































COLLEEN CALCULATOR* BV C SHAW 


9ABB 
9AQ9 CA 
9AB6 10 ED 


LEX 30 


DEX 

BPL 


LXLP20 





COLLEEN CALCULATOR, BY C SHAW 


9ABA BO 03 
9ABC 


-CHECK FOR KEYWORD (ALPHA) 


- GMR-- 

BCS LEX05 



-9AB€-^C /\1 9B 







9ABF 

9ABF C9 5B 

-9AC-1—BGH=9- 

LEX05 

CMP 

-BGS-- 

#'Z+1 


1 


9AC3 20 FC A3 
-9ACiS- 

-KEYLF- 

JSR 

UNPINT 




9AC6 20 OF A4 


JSR 

-BEQ— 

UNPNUM 


i 

-- 

9ACB 

9ACB 20 FC A1 

KEYLP2 

JSR 

LDCHR 




9ACE A6 88 

, ^ 9ADO DD 00 05 

-9AD3 FQ 04- 


LDX 

CMP 

KEYCHR 

TOKBUF, X 




9AD5 90 30 

9AD7 BO 3E 


BCC 

BCS 

KEY20 

KEYERR 

iNO MATCH: HAVEN'T GONE FAR ENOUGH 
)NO MATCH: HAVE GONE TOO FAR - GIVE ERROR MSG 


} 

9AD9 E8 

9ADA 86 88 


INX 

STX 

KEYCHR 




9ADC E4 82 

9ADE 90 EB 
j,—,-9AE0 FO E^ 


CPX 

BCC 

TOKPTR 

KEYLP2 

KEYLP^ 

iNOT END OF WORD 

1 

> 

9AE2 84 SB 
-9AE4 E6 85 


STY 

LDNBSV 

JQI^p Jl^ 

iNEED TO FETCH MORE CHARS FROM TERMINAL 

-*-csAiJir nuAo 

1 


9AE6 20 EB AO 

-9AE9 C9 90 


JSR 

GTCHR 

#DEbL!N- 

» O/iVt ^rvtiVTtjUo vrfHn- -- - - 


9 

9AEB DO 03 

9AED 4C 79 9A 


BNE 

JMP 

KEY07 

LEX 



> 


9AF2 C9 41 

9AF4 90 OC 


CMP 

BCC 

#'A 

KEYIO 

; END OF CHAR STRING (INCOMPLETE KEYWORD MATCH) 



9AFS BO 08 

9AFA A6 88 

-OAC-n crvi -OA. 


BCS 

LDX 

KEYIO 

KEYCHR 




Tflr L t4 OH 

9AFE BO 07 

9B00 90 09 


— 

BCS 

BCC 

“ ■ KEyLl\f2“ - 

KEY20 

KEYLP2 

;AT END OF WORD => SAVE MATCH AND CONTINUE 
i NOT END OF WORD => CONTINUE 


• i'.’itfi r- 9B02 A5 8F 

KEYIO 

LDA 

KEYCNT 


_ 


•fV# fit/ 70 


JMP 

ENDtSO 



1 

9B07 

4-l/^ i-A A/n 

KEY20 


A f IhJ A -1- 



Vow/ cTU tH H%J 

9B0A 20 IB A4 


JSR 

oHvnft1 

UNPNXT 

/ SAVE LONGEST“MATCH ----- 

;TRY NEXT WORD IN LIST 














































COLLEEN CALCULATOR, BY C SHAW 



9B0D 

4C 

C6 

9A 


JMP 

^ i 

9B10 

93;[Q 

-^0 

cr A 

AO 

KEY70 


> 

9B13 

9B13 

on i c! 

A5 

T\r\ 

94 

HO - 

ENDLST 

— pOK 

LDA 

. ! 

1 

7 IS X ^ 

9B17 
9B17 
-9B19 

ntW 

A9 

-40- 

u:? 

OD 

-OS- 

-9B 

KEYERR 

—BNE 

LDA 


9B1C 




ENDSKP 

—JMP 


-S AVM A T 


KMATCH 

-ENBSKP 


#KEYMSG 

-LEXERR 


-9 B 1C A2 03 - 


9B1E 
9B1E B5 
-^B29-95 


90 

0Q 

9B22 CA 
9B23 10 F9 
-9&2a-A5-SF~ 


9B27 
-9B37- 85 




9B29 20 DF A3 
9B2C A5 8E 
- 9B2E 85 80 - 

9B30 A2 00 
9B32 20 3F A4 
-9B35-84-E2- 




ENDLIO 


LDA 

-STA- 


DEX 

BPL 

-LDA- 


9B37 4C DS 9B 


ENDL20 


-STA— 
JSR 
LDA 
~&TA- 

LDX 

USR 

-EW- 

JMP 




KYPTSV, X 
H=»KETR,-X— 


ENDLIO 

H4EYGN-F 


TOKO0D 

SAVCHR 

KYLFRT 

-EFRT-- 

#TOKBUF 
UNPACK 
-TOKPTR - 

LEXRTN 


-ED3A- 


9B3A E6 82 
9B3C A5 8F , 
--9B8E-4C BE EB- 


-ENDWRD- 


INC 
LDA 
-UMP~ 


TOKPTR 

KEYCNT 

-b-XSAMO- 


;CONTINUE 


^WORD NOT IN L1ST => TAKE-LONGEST MATCH— 


iFIRST CHAR NOT IN KEYWORD 

}USE LONGEST MATCH - 


/•UNPACK ENTIRE KEYWORD INTO TOKBUF 


iSAVE LAST CHAR 












































J9EAir - 

9B41 C9 2E 
9B43 DO OF 


-U<-NMGK- 


CMP 

BNE 


LXNDOT 


9B45 A6 87 
9B47 DO 10 

- 9B 4 9 E6 82 - 

9B4B 20 60 A1 
9B4E FO 22 
- 9 B 50 A9 OD - 


LDX 

BNE 


9B52 DO 74 


JSR 

BEQ 

-yoA- 


DHOFLG 

LXERR2 

-TOKFTR- 

OETDHO 

LXHVDT 

-#KEYMSO— 

LEXERR 


9B54 20 6C A1 
9B57 FO 04 


9B59 A9 17 
9B5B DO 6B 


JSR 

BEQ 


LDA 

BNE 


DHOCHK 

LXLP40 


ttNDMMSO 

LEXERR 


9B5D 

-9 B 5 B- A6 82- 

9B5F EO 11 
9B61 BO 63 
9B63 20 6 0 A 1 
9B66 FO F5 


CPX 
BCS 
—JSR- 
BEQ 


-TQKFTfF- 

#NUMLEN+1 

LENERR 

-OETDHO 

LXLP40 


- 9B 68 Q9 - 2E -- 

9B6A DO 11 
9B6C A6 87 , 
9B6E D0 -E9- 


-o«p- 

BNE 

LDX 

-BNE- 


- 

LXND2 

DHOFLG 

-LXERR2- 


9B70 E6 82 
9B72 - 

9B72 A6 82 
9B74 EO 11 

9B7 6 B 0-4E- 

9B78 20 60 A1 
9B7B FO F5 


TOKPTR 


9B7D 

9B7D A6 87 
- 9B7F DO - 30 - 


LDX 

CPX 

-BCS- 

JSR 

BEQ 


LDX 

- BNE - 


TOKPTR 

#NUMLEN+1 

-LENERR 

OETDHO 

LXHVDT 


DHOFLO 
-bXNUM— 


9B81 C9 45 
-9B83 DO 2C 


CMP 

-BNE- 


9B85 E6 82 
9 B87 20 60 A1 

9B8A FO IB 


INC 

-^ S R 


LX0T2 


-9086—C9-2B - 

9B8E FO 04 
9B90 C9 2D 


LX50 

LX6 0- 


9 B 9 2 DO-O B- 

9B94 

9B94 E6 82 


BEQ 

CMP 


CHECK FOR NUMBER 


i DEC? 

;N0. ' NOT ALLOWED 

iSAVE"." - --r - 

;GET DEC, HEX OR OCT DIGIT (ACCORDING TO DHOFLG) 

i WITH NO DIGITS "NOT VALID COMMAND" - 

; JMP 


;NO MATCH AT ALL SO ILLEGAL CHAR 
HAVE NUMBER 


.LIMIT TO NUMLEN CHARS 


iKEEP GETTING DIGITS 


; DEC? 

iNO. ' NOT ALLTDWED 
; SAVE " 

iCHECK FOR BUFFER OVERFLOW 
;LIMIT TO NUMLEN CHARS 
-+TOQ MANY DIGITS 


“tOCTAL OR -HEX => NO-EXP-ALLOWED - 

iDECIMAL CHECK FOR EXPONENT 
;NO-E=> END OF NUMBER - 

iSAVE E 


iHAVE DIGIT 

—NOT -A D-TQIT. ' OR ' - ' ?- 


; E I 9- N0T FOR E^ P 6 N E -N- T ^ > -DONE-Wi-TH-NUMBER- 


iE IS FOR EXPONENT 


=> SAVE OR 




































































COLLEEN CALCULATOR, BY C SHAW 


fie 

9B96 20 60 A1 
9B99 FO OC 


JSR 

BEQ 

GETDHO 

LXGT2 



' 9B9B A9 2A 

9B9D DO 29 


LDA 

BNE 

#NODMSG 

LEXERR 

iNO DIGIT AFTER + OR - IN EXPONENT 
i JMP 


9B9F 

-9&9F-20^ BF-AG— 

LX60 




% 

9BA2 C6 82 

9BA4 4C B1 9B 


DEC 

JMP 

TOKPTR 

LXNUM 



9BA7 

9BA7 20 60 A1 
-9BAA BO-QB — - 

LXGT2 

JSR 

-frNE— 

GETDHO 

;GET 2ND DIGIT OF EXPONENT 


9BAC 20 60 A1 
9BAF FO 15 


JSR 

BEQ 

GETDHO 

LENERR 

;HAVE 2ND DIGIT. IS THERE 3RD? 
iERROR - EXPONENT TOO LARGE 

a 

9BB1 

9BB1 20 DF A3 

LXNUM 

JSR 

SAYCHR 

iSAVE LAST CHAR FOR NEXT TOKEN 


1 9BB4 AO 00 

9BB6 A9 9B 

‘-9BB8- 91—82- 


LDY 

LDA 

#0 

#CR 


■.r 

9BBA 20 55 AO 
9BBD 20 43 A5 
-9BCQ—A9 96- 


JSR 

JSR 

LDA 

V ~rtJKNT*~i n~7-T Y 

FSTOT 

SNUMB 

;ASCII -> FP 


1 9BC2 85 81 

9BC4 DO 18 


STA 

BNE 

TOKCOD 

LXRTN2 

i JMP 

r 

'I 

9BC6 A9 82 

9BC8 

-9BG8 20 E5 9B 

LEXERR 

LDA 

#DIGMSG 

- - _ 

iTOO MANY DIGITS 


9BCB 4C 79 9A 


JMP 

LEX 

;TRY AGAIN 

[ 

9BCE 

9BCE 85 81 

aonri nrr An 

LXSAVl 

STA 

TOKCOD 

_ 

;SAVE TOKEN CODE 
; SAVE EAST CHAR-FOR NEXT TOKEN 


Vi7L/\J L/n MiJ 

9BD3 4C D8 9B 


JMP 

o^fTVt’Tin 

LEXRTN 



1 VO A < /A 




r' 

L 

"DD' 

9BD6 85 81 

9BDS 

-9BD8 AO 00^- 

LEXRTN 

STA 

-tW- 

TOKCOD 

—#0- 

; DON'T NEED TO SAVE ANY CHARS E.G. 


9BDA A9 9B 
913DC 91 82 


LDA 

STA 


#CR 

(TOKPTR),Y 


f-i—r- - 9flDE - 

9BDE AO 01 

9BE0 8C FO 02 

- fcXRTN2- 

LDY 

STY 

#1 

CRSINH 

iCURSOR OFF 


^BE3 18 

9BE4 

- - - 

INIT 

“"CtC 

RTfi-- 


/“NOEiTRiDR 

: POWER UP INIT: JUST RETURN 



END OF LEX 


































COLLEEN CALCULATOR. BY C SHAW 


9BE5 


ERRSUB 


9BE5 AE 6C OB 
-9B E8 DO F A- 

9BEA EE 6C OB 
9BED AA 

9BEE A5 5 4- 

9BF0 48 
9BF1 A5 55 
9BF3 -4 8 

9BF4 8A 
9BF5 48 


LDX 

BNE 

INC 

TAX 

- LP A- 

PHA 

LDA 

-FmA- 

TXA 

PHA 


ERRFLG 

—I-NTT- 

ERRFLG 


-0 \ 

k 

I 

•L_ 


9BF6 20 13 9C 
9BF9 20 BA A3 
^-^2 - 
9BFE 85 55 
9C00 68 
- 9G01—AO-B^ - 


9C03 20 4F 9C 
9C06 20 BA A3 

9C09 68 
9C0A 85 55 

—9€OG-^68-- 

9C0D 85 54 
9C0F 38 

-^tO-A2-01- 


JSR 

USR 

LOA- 

STA 

PLA 

-L-DY- 

JSR 

JSR 

PLA 

STA 

Pb A- 

STA 

SEC 


ERRSB2 

PTTXTP 

-#2- 

COLCRS 

- #ERRTBL/256 


SETMSG 

PTTXTP 


COLCRS 

ROWCRS 


9C13 

9C13 A9 00 


9C17 A5 CS 
9C19 29 01 
-9^4rB-85-^8- 


A9 40 

-8D-0O D2- 


9C22 

9C24 


A9 AF 
8D 01 D2 


A2 01 
BE FO 02 
OA- 


9C29 
9C2B 
9C2E - 
9C2F 
9C31 

--9e3^^eA- 

9C32 DO FD 



-9e85- 

9C37 

8C 

-FAr 

01 

D2 


9C3A 

20 

81 

A3 


LDA 

AND 


LDA 
-STA.- - 


LDA 

STA 

-LDY- 

LDX 

STX 

HDEX- 


—DSPFLG 
PROG 
#1 

-AROG - 
#*40 

- AUDFl - 
#*AF 
AUDCl 

-#*80- 

#1 

CRSINH 


BNE 

DEY 

BN E- 


9C3D A9 17 


LDA 


#23 


OUTPUT "ERROR - MESSAGE 


A=LSB OF ADDRESS 


-i RET^JRN IF ERROR-ALREADY DISPLAYED - 

j<~ 1 SET FLAG 

;SAVE OLD CURSOR LOC SO IT CAN BE RESTORED LATER 


iDO SOUND, SET UP TO OUTPUT "ERROR - " 
iPUT ON SCREEN AND PRINTER 

iONE SPACE 

;RELOAD MESSAGE ADDR 

j SET UP MESSAGE IN TOKBUF 
iPUT TEXT ON SCREEN AND PRINTER 


i NE =-> ERROR 


i T^RN DISPLAY ON 

—f-STOP EXECUTION. IF ANY - 

iOUTPUT ERROR SOUND 

-1 DELAY 
;CURSOR OFF 

iLAST THING OUTPUT WILL NOT BE A NUMBER 

iTURN SOUND OFF 

iPUT CR ON PRINTER IF PREVIOUS WAS NUMBER 
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COLLEEN CALCULATOR, 

BY C SHAW 



- & 

9C3F 85 54 


STA 

ROWCRS 


-9C41 20 DE A2 

9C44 A9 02 
9C46 85 55 


LDA 
STA 
- LDX 

#2 

COLORS 

4^7 


9C4A A9 Cl 

9C4C AO B6 


LDA 

LDY 

CLne 

#ERRMSG 

#ERRMSG/256 

t 


% 

9C4F 

9C4F A2 00 

SETMSG 

LDX 

ttTOKBUF 

t 

9C53 85 8C 

9C55 84 SD 


STA 

STY 

_ . 

PKPTR 

PKPTR+1 

t 

9C59 84 80 

9C5B B1 8C 

Dt; DA 


_ 

STY 

LDA 

LFRT 

(PKPTR),Y 

l/trv/l KID 

1 

09 On 

9C5F 98 

9C60 20 3B A4 

Of* AD qp 


TYA 

JSR 

TYA 

-nC. T khVcSt 

UNPCK2 

■M 

9C64 AA 


TAX 



QPAS AQ 


LDA 

ni ic* 

'1 

7W09 n7 w 

9C67 AO 05 

9C69 60 


LDY 

RTS 

TT 1 iJrVwwr^ 

#T0KBUF/256 

r 

9C6A 

PUTMSG 




9C6A AO BS 

9C6C 

... . AD DD 

PTMSG2 

LDY 

#PR0MSG/256 


He \JC 

9C6E 86 55 

9C70 A2 17 

i; .1 -^.70 a A 


LrDX^ 

STX 

LDX 

—#2- 
COLCRS 
#23 

mm lynrirf-* 

5 . ■ 9C74 20 4F 9C 

'' p ' 9C77 4C BA A3 


JSR 

JMP 

-nliHvtyiT^b 

SETMSG 

PTTXTP 


I 


iONE SPACE 


iSET UP MESSAGE IN TOKBUF: A=MSG LSB, Y=MSO MSB 


i# OF CHARS 


;PUT MESSAGE ON BOTTOM LINE OF SCREEN Sc PRINTER 

INPUT: A=MSG LSBYTE - _ - 

;MSG MSB 

iINPUT A=MSG LSBi Y=MSG MSB 


jSET up MSG IN TOKBUF 

iPUT TOKBUF ON SCREEN Sc PRINTER 































COLLEEN CALCULATOR, BY C SHAW 


u 


9C7A 


mm 


9C7A A5 BD 


LDA 

BINARY 

9C7C 30 12 


BMI 

BINCIO 

9C80 

BINLPl 


ttO 

9ca0 B5 BD 


LDA 

BINARY, X 

9C84 FO 04 


BEQ 

BINOK 

9C86 A9 36 


LDA 

#BOMSG 

9C8A 

BINOK 


BINERR 

9C8A ES 


INX 


1 9C8D DO FI 


BNE 

BINLPl 

i 9C8F 60 


RTS 






9C90 A2 00 


LDX 

#0 

9C92 

BINLP2 






B1^^IARY»-X 





9C94 D5 B9 


CMP 

BINMIN,X 

9C96 90 06 


BCC 

BINER2 

9C99 EO 04 


CPX 

#4 

9C9B DO F5 


BNE 

BINLP2 

9C9E 

BINER2 

-RTS 


9C9E A9 36 

.nr KiCDO 

LDA 

#B0MS0 

9CA0 4C E5 9B 

-0'i:INc.T(TT~ 

JMP 

ERRSUB 

9CA3 

BINFP 



9CA3 20 7A 9C 


USR 

BINCHK 

__Q]L|:^^pY- — — - 

-9CA6—A-^— BD - 

9CA8 

BINFP2 

LDA 


9CA8 85 A9 


STA 

NEGFLG 

-9CAA— to —03—- 




9CAC 20 IE A5 


USR 

S2CMP 

9CAF 

BINIO 



-9CAF—A5—BD- 

9CB1 85 D5 


STA 

FRO+1 

9CB3 A5 BE 


LDA 

BINARY+1 

-9CB5—85—D4- 

9CB7 20 AA D9 


USR 

IFP 

9CBA A2 30 


LDX 

#C65536 

_-- 

9CBE 20 98 DD 


USR 

FLDIR 

9CC1 20 8C AB 


USR 

SFMUL 

--^-- ■■■ 9CG4'—2© 90 "AO 

9CC7 A5 BF 


LDA 

BINARY+2 

9CC9 85 D5 


STA 

FRO+1 

1-9CCB A5-00- 

9CCD 85 D4 


STA 

—BTNARY+S 

FRO 

9CCF 20 AA D9 


USR 

IFP 

9CD5 20 AA AB 


USR 

SFADD 

9CD8 A5 A9 


LDA 

NEGFLG 

-yC&A- TV UO--DT"I- OilNCW 


9CDC A5 D4 
9CDE 09 SO 


LDA 

ORA 


FRO 

#*80 


CHECK TO SEE IF BINARY IS WITHIN RANGE 


i POSI TI VE- - 


rTOO^ LAROE 


i OK 


i TOO SMALL 


+0K - -- 

;BINARY UNDERFLOW 


;4 BYTE BINARY TO FP 
iLIMIT TO BITINT BITS 


iTAKE ABSOLUTE VALUE 

j 65536*1 FP(BINARY+1, BINARY) + IFP(BINARY-»-3, BTNARY+S-> 






NEGATIVE # 






















































































COLLEEN CALCULATOR, BY C SHAW 


9CE0 85 D4 

9CE2---- B IH20 

9CE2 60 


STA 


RTS 









































COLLEEN CALCULATOR, BY C SHAW 


l; 


-9GE 3 A2 OF 


9CE5 A9 20 
9CE7 
-9>GE7- 


9CEA CA 
9CEB 10 FA 
-9 GED 60 - 


9CEE 

-9GEE 


9CF1 A6 AB 
9CF3 DO 04 
-9GF^-/V9- ^ -l 

9CF7 DO 06 
9CF9 

-90F9-A9-1^- 

9CFB 85 54 
9CFD A9 01 
9CFF - 

9CFF 20 23 AO 


9D02 A5 CA 
9D04 DO OD 
9D0 6 A9 1 4 


9D0S 85 55 
9D0A A6 82 
9D0C A9 OO - 
9D0E AO 05 
9D10 20 BA < 
9D13 - 


9D14 20 9C AO 
9D17 A9 09 
9D19 -S 5 -A F - 

9D1B 20 D7 A4 
9D1E 20 89 DD 
9D2i—2 0 AO 9E 

9D24 20 2E 9D 
9D27 C6 AF 


9D2B 4C 7E AO 


9D2E A5 AF 
9D30 

— 9030 - 20 - 4 7 - 9 0 - 
9D33 BO 11 
9035 A5 CA 


-#NUML£N-1- 

#' 


;CLEAR TOKBUF SO NUMBER CAN BE LOAOED 


DEX 

BPL 

-RT^S- 


LDX 

BNE 


-L-DA 

STA 

LDA 


FiyTDEI__- 

NUMFLG 
MAIN15 
- #C0LGMD-3-^ 
MAIN20 

-#ROWCMD 

ROWCRS 


LDA 

BNE 


DSPFLG 

MAIN21 


i# OF BLANKS NEEDED TO GET COMMAND -IN PROPER COL 
iJMP PREVIOUS TOKEN WAS NOT A NUMBER 

;PREVIOUS TOKEN WAS A NUMBER 


iNO DISPLAY 


STA 

LDX 

L -B A - 

LDY 

JSR 


COLORS 

TOKPTR 


i# OF CHARS 


JSR 

LDA 

— ST A - 

JSR 

JSR 

—JSR— - 
JSR 
DEC 

—BPl^ - 
JMP 


#T0KBUF/256 

PTTXTP 


#9 


iDISPLAY ALL OF MEM (0-9) 
j SAVE X 


-MEMNUM- 


MEMLDR 

FLDOR 

-T0KNUM- 

DSPMEM 

MEMNUM 

-OMELP- 

FPOPO 


i FRO<:-MEM(MEMNUM) (USING MEMNUM) 


-i TOKBUFC-ASCI I (FRO) 

;DISPLAY IN MEM AREA OF SCREEN 


J CONTINUE 
iDONE - RELOAD X 


^ MEMNUM ON SCREEN (ASCII ALREADY-IHM TOKBUFT 


BCS 

LDA 


DSPM4 

DSPFLG 


;DISPLAY MEM REG A ON SCREEN 
;MEM >= 10 SO DON'T DISPLAY 


9038 A9 00 
9D3A 85 CA 


9D3E 85 55 
9040 20 97 9E 

9 0 4 3 68- 

9044 85 CA 


LDA 

STA 

LOA- 

STA 

JSR 

P L - A 

STA 


#0 

DSPFLG 

--#eOLeMO+2- 
COLCRS 
FDSP2 


iMEM < 10 SO DO DISPLAY 



DSPFLG 












































COLLEEN CALCULATOR, BY C SHAW 


(r 

€- 

% 


9D46 DSPM4 

-9D46-60-RTS-- 

9047 DSPM3 ;SET UP TO DISPLAY MEM REG A 

-904 7 C 9-QA-GMP-4L10- - - 

9049 BO 05 BCS DM10 ;ONLY DISPLAY 0-9 

9D4B 18 CLC ;ROW = MEMNUM+4 

- 9D <1 C 69 05 -ADG-4WQWRE©- 

9D4E 85 54 STA ROWCRS 

9050 DM10 

9050 60-RTS- - _ 


9053 DO FB 
9055 20 9C AO 


9D5A 85 54 
9D5C A5 A4 


9D5F E9 06 
9061 

90 6 1 85 A S -- 

9063 AA 

9064 AO 06 
90 6 6 20 8 9 00 - 


9069 A9 03 
906B 20 92 9E 


DM10 

FPUSHO 


STA 

LDA 


ROWCRS 

FPPTR 


TAX 

LDY 


#FPSTK/256 


LDA 

USR 


iDON'T DISPLAY 

iDISPLAY STACK SAVE X ON STACK 


;DISPLAY IN COLUMN 3 


9D6E E6 54 
9070 A5 54 
9072 C9 OF 

9074 BO 1C 
9076 A5 AS 


9079 E9 06 
907B BO E4 

-90 70 A- 5—5 4- 

9D7F 48 

9080 

— - 9080- 45-54^- 

9082 C5 BO 
9084 BO OB 

- —9086-49-03- 

9088 85 55 
9084 20 58 43 
-90 80 E6 5 4 - 

90SF 00 EF 

9091 

— 9D91r-6a - 

9092 

9092 85 BO 
—9^09 4 4C 7E 40 


INC ROWCRS 

L04 ROWCRS 

-GMP-#ReWSOR-l- 

BCS STKD45 ;STACK AT LEAST 10 DEEP 

LDA TO 

-see-- - 

SBC #FPREC 

BCS STKDIO /CONTINUE 

--bOA-R0WORS-- 

PH4 iSAVE NEW PRVSTK 

STKD30 

-LDA- ROWeRS j CLEAR AL1_ ROWS UP TO-PREVIOUS STACK MAX 

CMP PRVSTK 

BCS STKD40 


STA COLORS 

JSR BLNK16 

- me - ROWC R S - 

BNE STKD30 ;JMP 

STKD40 

-PtA- 

STKD45 

STA PRVSTK 

-dMP- F P QP O- 




















































COLLEEN CALCULATORi BY C SHAW 


-PC-+1- 

#PC1MAX+1 

DGIO 



DISPLAY PROGRAM ADDRESS, CURRENT TOKEN 


;PAST END OF MEM 

;CARRY CLEAR 

;0 -> 1023 IN (INBUFF) IN ASCII 
jRIGHT JUSTIFY IN TOKBUF, PUT O'S AT LEFT 
;FIND END OF BUFFER 

jMASK off end of BUFFER INDICATOR 
! JMP 

iMOVE TO TOKBUF 


iPAD WITH O'S 


iONE SPACE AT BEGINNING OF LINE 


-/LOAD TOKEN CODE FROM PRGMEM, CHECK FOR NUMBER 
iERROR 
iNOT NUMBER 

rFP NUMBER -> ASCII IN TOKBUF ^ - 

i JMP 


NOT A # 

UNPACK CHARS FOR TOKEN 
ERROR 


t-TR Y POINT T -e-DISPLAY^ COMMAND- 



















































COLLEEN CALCULATOR, BY C SHAW 


9DF8 

- 9DFA 


10 


9DFB 
9DFD 
-9 0FF A A 


A9 

- 38 -- 

E5 A8 
FO 08 


9E00 

9E02 


A9 00 
AO OB 
- 9EQ4 20 93 A3 - 

9E07 
9E07 
- 9EQ9 


A6 82 
OQ - 


9E0B 

9E0D 

- 9E1Q 


9E13 

9E14 

- 9E14 


AO 05 
20 93 A3 
3 0 - B E A 2 

18 

AO- 


LDA 

SEC 

SBC 

BEQ 


#NUMLEN 


- T^AX 

LDA 
LDY 
- JSR 


TO 

D070 


DO70 


#BLKBUF 
#BLKBUF/256 
- P-TCH 6 P — 


LDX 


-0080- 


- LD A 

LDY 

JSR 

-USR- 


TOKFTR 

-#TQKOUF- 

#T0KBUF/256 

PTCHSP 

-PUTOR-- 


DGRTN 


CLC 

RTS 


Y = LENGTH OF BUFFER 
OUTPW-BLANKS-- 


OR-3N SCREEN ONLY, NOT-PR INTER 


NO ERROR 
















































COLLEEN CALCULATOR, BY C SHAW 


9E15 


FPBIN 


-^9E4§-AS-D4- 


9E17 85 A9 
9E19 10 04 
9 E1B 5 9 -^- 

9E1D 85 D4 
9E1F 

-9E44=-S0-3F-9E- 

9E22 90 01 
9E24 60 

-9ES5- 


9E25 A5 A9 
- 9E27 10 03 - 

9E29 20 IE A5 
9E2C 

-9E2e-4 C 7A 9G - 


9E2F 

- 9E2F 20 - 


9E32 A2 
9E34 AO 


30 

B6 


9E3 6 20 89 DB - 


9E39 20 
9E3C 20 


95 AS 
D2 D9 


9E3F A 5 - B 4- 


9E41 85 
9E43 A5 


9E 4 5 -8^-&F- 


9E47 20 
9E4A 20 


34 AO 
D2 09 


9E 4 D BO 09 - 


9E4F A5 
9E51 85 


9E55 85 
9E57 60 


9E5e 

9E5S A9 36 
-9E5A-4G-EO-90- 


STA 

BPL 


NEGFLG 

FPIO 



LDX 

LDY 


-FP^SHO- 

#C65536 
#C65536/256 
F LOO R--- 


USR 

USR 

^A- 

STA 

LOA 

-STA- 

JSR 

JSR 

-008- 

LOA 

STA 


SHOD 

FPI 

-FRO- 


STA 

RTS 


BINARY+3 

FRO+1 

-&TWARY+2- 

FLOOM 

FPI 

-FPERR - - 
FRO 

BINARY+1 
-FR0H-4.— - 
BINARY+O 


LOA 

-xmP- 


#BOMSG 

-ERRSUB 



iCONVERT FRO TO 32 BIT BINARY # 


THEN COMPARE WITH BITBIN TO SEE IF IT IS IN THE 
RANGE SPECIFIEO BY BITINT. 


j-TAI4E ABSOLUTE VALUE- 


iCONVERT FP TO BINARY 
iOVERFLOW 


;NEG # - TAKE COMP, AOO 1 

-i-OHECK-^O SEE IF- WITHIN TIANGE- - 

-i SAVE-^GQPY OF # FOR MOD - - 


iFRO « X MOD 65536 (2 LOWER BYTES) 
;MaDFAC = INT(X/65536) (2 UPPER BYTES) 

-f-LSfi--- ■ - 

5 LOAD MODFAC 

—(ERROR; OVERFLOW - -.. 

~( MSB ' ■ - ■ - -. . . - 









































































COLLEEN CALCULATOR, BY C SHAW 


L 


L 


L 


^ 9E5D - 

9E5D 20 73 9E 

9E60 C6 AB 
9E62 A9 13 
- 9EA4-85-&S - 

9E66 A9 16 
9E6a 85 54 

-9E6A-A2-04- 

9E6C A9 C8 
9E6E AO B6 
-J?E70-4C-BA-A3- 


-: - - :Jg^^c»t<;9E73 - 

9E73 A9 17 

-9E7-5-85-54- 

9E77 20 AO 9E 

.-_9E7W-2G-81-A3- 
9E7D A9 03 
9E7F 85 55 

-9E 81 A g 10 - 

9E83 A9 00 
9E85 AO 05 
- 9E87 20 93 A3 

9E8A 20 DE A2 
9E8D A9 01 

- 9E8F 85 AB - 

9E91 60 


9E92 85 55 
9E94 20 AO 9E 
-9E9?- 

9E97 A2 10 
9E99 A9 00 
-9E9fi-YVO-05- 

9E9D 4C 5E A3 


—FfiSeOH- 

JSR FDSPO j DISPLAY FRO FOLLOWED BY "***” 

-i-DA¥GOK-- i ENTRY PT 

DEC NUMFLG j <- 0 

LDA #C0LCMD-1 

-BTA-COLORS- 

LDA #ROWCMD 

STA ROWCRS 

--#4- ; # OF CHARS 

LDA ttSTARMS 

LDY #STARMS/256 

-JMP-FTTXTfL - 


; CONVERT FRO TO ASCII AND DISPLAY 

LDA #23 

-STA-ROWCRS— 

JSR TOKNUM jCONVERT FRO TO ASCII IN TOKBUF 

iDAYDSP .DISPLAY TOKBUF ON SCREEN AND PRINTER (IF ON) 

-JSR-RTCBPN -t-PUT CR ON PRINTER IF PREVIOUS THING WAS NUMBER 

LDA #3 

STA COLORS 

-LDX-#NUMLEN- 

LDA #TOKBUF 

LDY #T0KBUF/256 

-JSR-FTCHSP- - - 

JSR PUTCR 

LDA #1 

-ST-A-NUMFLG- 

RTS 

FDSPl — -j-BfSPLifl|Y-NUMBER ON SCREEN ONLY. IN COL- A 

STA COLORS 

JSR TOKNUM 

-FBSF2_- _ i OISPLAY-TOKBUF NUMBER ON SCREEN WHEREVER CURSOR-IS 

LDX #NUMLEN 

LDA #TOKBUF 

-LDY- - #T0KBUF/256 

JMP PUTCHS 


TOKNUM .CONVERT FRO TO ASCII IN TOKBUF -> TOKBUF+NUMLEN-1 (RIGHT JUSTIFIED) 

-9EA0 20 9 C A O- -dSR-FPUSH<3- rSAVE FP # 

9EA3 A5 87 LDA DHOFLG 

9EA5 FO 40 BEQ FDS05 _ 


9EA7 20 55 A8 
-9 EAA 2 0 1 5 9E- 

9EAD A2 03 
9EAF 

9EAF B5 BD 
9EB1 35 B5 
9EB3 95 BD 
9 EB 5-eA- 

9EB6 10 F7 
9EBa A9 00 


; NON-DECIMAL NUMBER 

JSR . SINTEG iTRUNCATE # FOR DISPLAY ONLY 

-JSR-FPBUM— - 

LDX #3 

FDLP3 

-L-DA-BINARYt-)(- 

AND BITBN2,X 

STA BINARY,X 

-BEX-—-- - 


BPL 

LDA 


FDLP3 

#0 






































UAi 111 h- / 


CLNUM 

ttNUMLEN 

TOKP-TR- 



9F17 


RFIO 


)TREAT ALL AS POSITIVE 
;CLEAR TOKBUF 


iPUSH Y ON STACK FOR MOD 


iO-> <DHOFLG-l) 


iLOAD MODFAC=INT(FRO/DHOFLG) 


DECIMAL MODE 
iCLEAR TOKBUF 

ADD 5X10''K IN PREPARATION FOR ROUNDING 


iINIT TO INDICATE NOT EFORM 
i SAVE MSD OF NUMBER 
iSAVE SIGN 

i 0 => NOTHING FANCY NEEDED 
;TAKE ABSVAL 


iE FORM? 
i YES. 


YES. 

NO. 

FIX 9 (NOFIX)? 
YES. 

FIXNUM 

ODD? 

YES. 


TAKE COMPLEMENT, CHANGE TO EXCESS 40 NOTATION 













































COLLEEN CALCULATOR, BY C SHAW 


r 


9F17 E6 CD 


9F1B C9 08 
9F1D 90 02 
- 9F1F - 

9F1F A9 07 
9F21 


9F23 CO 10 
9F25 90 04 


9F29 C9 FF 
9F2B 


9F2C 90 02 
9F2E A2 05 

— 9<=30 - 

9F30 49 FF 
9F32 18 


9F35 C9 OF 
9F37 90 34 


9F3B 

9F3B 85 EO 
- ^F3D 8 6 El 


9F3F A2 03 
-9 F 41 A9-GQ-^ 

9F43 

9F43 85 E2 


9F46 10 FB 


9F4B BO 20 


^?F20- 

RF30 


CMP 

BCC 


—LDY— 

CPY 
BCC 
SBC- - 
CMP 


SEFORM 

--F-I-XNUM 

#7+1 

RF30 

#7 


FRO+1 

#$io 

RF40 

#lr- 

#»FF 


--RGR- 


RF50 

#$05 


EOR 

CLC 


CMP 
BCC 
-BEQ - 


#$F 

RFERR 


FRl 

- FR1 + 


LDX 

--tDA— 


- 

FRl+2 


iYES. SET FLAG 
i FORM 5X10'^~<FIXNUM+1 IXIO^'KI 
iWHERE K1=P0WER OF 10 IN FRO. 
iMAX # OF DIGITS AFTER DP=7 IN E MODE 


IN RANGE 0-9? 

YES. 

NO. 10-99 => ODD POWER OF 10, 5X10^-( <FIXNUM-l-) + l) XlO'^CKl-l )- 
SET CARRY IF NEG. 

DIVIDE BY-2 TO GET POWER OF lOO - - — 

ODD POWER OF 10? 

YES. USE 5, NOT $50 

iTAKE COMPLEMENT = -(A-1) 

COMBINE WITH-EXPONENT- - -- - 

TOO SMALL? 

YES. ERROR 
YES. -ERROR - 

iEXPONENT 

r 5 -OR—$50- - , _ — —- — — —- 


iCLEAR REST OF FRl 


;ERROR - OVERFLOW 


9F4F FO OE 
9F51 20 51 DA 

-9FS4^‘9-30- 

9F56 SD 75 05 
9F59 20 20 D9 
-9F5e-4e^ 62-9F— 
9F5F 

9F5F 20 E6 D8 
-9F62- 


BEQ RF90 

JSR INTLBF 


STA LBUFF-11 
JSR XEFORM 

-JMP-RFIOO 


-f-EFORM?- - - - 

; NO. 

;YES. MAKE INBUFF POINT TO LBUFF 
-j STORE ASC I I 0 

,FP -> E FORM ASCII 


;FP -> ASCII (NOT EFORM WE HOPE) 


9F62 AO FF 
9F64 

- ^64 C 8- 

9F65 B1 F3 
9F67 10 IB 

-9F&9-A6 CD- 

9F6B FO OE 
9F6D 

9 F6D A 9 9 B - 

9F6F 20 E5 9B 


--FiNI> SAVE E+/-NN 


LDA 

BPL 


(INBUFF),Y 
RFllO 


t-end-of-buffer - 


iERROR: SHOULD HAVE E 
-rOUTPU T — A R TT Ht 





















































































COLLEEN CALCULATOR, BY C SHAW 


9FD5 CB 

- 9FDA- - 

9FD6 B1 F3 
9FD8 C9 30 
—9>FDA-BO-36— 

9FDC SB 
9FDD 10 F7 

-9FDF- 

9FDF 98 
9FE0 18 


9FE3 C5 CF 
9FE5 BO 04 
—9FE7-S5-CF— 
9FE9 90 OF 
9FEB FO OD 


LDA 

CMP 

BNE- 

DEY 

BPL 


-4» FED , 


—GF- 


9FEF 85 CF 
9FF1 A9 30 


9FF3 C8 
9FF4 91 F3 
- 9FF 6 C <1 CF 
9FF8 DO F9 


TYA 

CLC 

- ADC- 

CMP 

BCS 

BCC 

RF150 BEQ 


(INBUFF), Y 
#'0 

-RF470 


—FT-50\IUM 
MANTLN 
RF150 


RF160 

RF160 


STA 

LDA 


I NY 
STA 


(INBUFF), Y 

-MANTHdM-- 

RFLP5 


9FFA 

9FFA A4 CF 


9FFE 90 02 
AOOO AO 08 


BCC 

LDY 


#8 


A002 A2 OF 
A004 A5 CD 

A008 A2 OB 


LDX 

LDA 

-BEO-- 

LDX 


#NUMLEN-1 
SEFORM 
FDbF4-- - 
#NUMLEN-5 


AOOA B1 F3 
AOOC 9D 00 05 


LDA 

STA 


(INBUFF), 
TOKBUF, X 


AGIO 88 
AOll 10 F7 


DEY 

BPL 


A013 A5 DO 
-A O15 10 0 5 - 

A017 A9 2D 
A019 9D 00 05 


LDA 

-BPt- 

LDA 

STA 


SSI(?N 
-FABOD- 

TOKBUF, X 


AOIC A9 10 
AOIE 85 82 
-A020-Ae—7E-AO- 


LDA 

STA 

-UMP— 


#NUMLEN 
TOKPTR 
- FPQPO- 


A023 

-A Oaa - A6 9 D 

A025 FO OC 
A027 A2 20 
—AQ 2 9 F B -48-( 

AOaC A9 00 


BEQ 

LDX 


—PRNFte— 
PUTBRT 
#PIOCB 
-lOBttrrX- 

#BLKBUF 


LDA 


> 1 -> ALLOW EXTRA CHAR FOR O AFTER D. P 


; UMP 


; COMPUTE WHERE END OF NUMBER SHOULD BE 


iMANTISSA TOO LONG => DISCARD DIGITS— 
; JMP 

;JUST RIGHT 

iMANTISSA TOO SHORT; PAD WITH O'S 
;NEW MANTISSA LENGTH 


i REACHED DESIRED LENGTH?- 
iNO. CONTINUE 

LIMIT TO STJIGITS MAX + DP- 


i OK 

-iTIOVE-TO TOKBUF 

E FORM? 

NO. - 

YES. ALLOW ROOM FOR EXPONENT 


CHECK SIGN 

i NEGATIVE ==> STORE 


; POP-OR-I«INAL #-OFF STACK^ 


-PUT—BtANKS ON PRINTER ONLY 


































































COLLEEN CALCULATOR; BY C SHAW 



A02E AO OB 
A Q 30 4 C 6 6 A3 - 


A033 
A033 60 


LDY 

-UHP- 


PUTBRT 


#BLKBUF/256 
-f^TCHS2—— ~ 


RTS 


. V- 


* 



















































COLLEEN CALCULATOR, BY C SHAW 


- 

-A034 

> \C ■ A034 A2 4C 

* ''■ ■■ A036 AO OB 


-FtDOM- 

LDX 

LDY 

#MODFAC 

#M0DFAC/256 

1* 

A03B 

A03B 20 8A 

AO 

FLDOS 

JSR 

FPOPLD 

.f 

'' A041 
' A041 20 8A 

AO 

FLDIS 

USR 

FPOPLD 

- 

A047 

A047 A2 52 
-A049 AO OB- 


FLDOT 

LDX 

#FTEMP 

urrTCTMn 


1 A04B 4C 89 

DD 


UMP 

tTr I cnKy-cfrOo— 

FLDOR 


A01E 


FLDIT 



e 

A04E A2 52 
A050 AO OB 

DC- 


LDX 

LDY 

#FTEMP 

#FTEMP/256 

e 

I-AO 52 4C 98- 

A055 

I _A055 A2 52 


FSTOT 


-ttcr-r^Kiin 


AO 57 AO OB 
A059 4C A7 

DD 


LDY 

JMP 

—trr t Cirtr^ 

#FTEMP/256 

FSTOR 


A05C A2 52 
A05E AO OB 



LDX 

LDY 

#FTEMP 

#FTEMP/256 

f 

AOSO 86 FC 
A062 84 FD 
-A064-A0-QD- 



STX 

STY 

-LDY- 

FLPTR 

FLPTR+1 


A066 

A066 B9 EO 00 
A0 6 9 - 94H=€- 

AOSB 88 
A06C 10 F8 


LDA 

--STAr- 

DEY 

BPL 


FRl, Y 
TFlrPTR^rY- 


1 A06F 

I A06F A2 D4 

FM0VE2 

LDX 

#FRO 

Mcrn/^ynRA.. 

, A073 FO EB 

A075 

FPOPl 

BEQ 

Tfr rev/ 

FSTIR 

rr —erU nU 

A07S 4C 98 DD 
f A07B 

FMVPOP 

JMP 

FLDIR 

^— .AO7B“20~&6^DD- 

M7E 

FPOPO 

USR““ 


r - A07E^~g0 84 AO- 

A081 4C 89 DD 

1 A084 

FPOP 

\JSR 

JMP 

FLDOR 

'--A084^20 8A-AO 

A087 86 A4 

A089 60 


STX 

RTS 

P^PQPLP- 

FPPTR 

-A08A- 

FPOPtD~ 




A08A A5 A4 
A08C 38 
A08D E 7 O is- 


LDA 

SEC 

-SB C — 


FPPTR 

-# F PREe - 


A08F BO 07 


FPOPIO 


i FRO <- MQDFAC 


iFRO <- TOP OF STACK 

;LOAD X&Y REGS WITH STACK POINTER 

iFRl <- TOP OF STACK 
iFRO <- FTEMP 

iFR4 <- FTEMP 

iFTEMP <- FRO 

iFTEMP <- FR1 

i (X, Y) FRl- - 


;FRO <- FRl 

;STORE FRl IN FRO 

• FRl POPO 
-;D0 FMOVE THEN FPOPO 
FRO <- POP(FPSTK) 

TtOAO^ fiEOT^TERS AND ' 

1 MODIFY STACK POINTER. 


; LOAD X-& Y REGIS-TERS IN PREPARATION FOR POP (FPSTK) 
















































COLLEEN CALCULATOR, BY C SHAW 


A091 A9 47 LDA 

-A093^-a0-&5-9B-dSR 

A096 A5 A4 LDA 

A098 PROP 10 

-A 098 -AA-TAX- 

A099 AO 06 LDY 

A09B 60 RTS 


A09C 

AO9G-^20-^-AO 

A09F 20 A7 DD 
A0A2 

A Q A2 A5 A4- 

A0A4 18 
A0A5 69 06 
-A 0A7 85 -A4- 

A0A9 60 


FPUSHO 

-USR- 

JSR 

FPSH05 

-LDA- 

CLC 

ADC 

-STA 

RTS 


AOAA 

AOAA 20 B3 AO 
-AOAD-2O-60-A0 
AOBO 4C A2 AO 
A0B3 

A0B3 ^=V6-A4- 

A0B5 EO FC 
A0B7 90 09 
A 0B9 A9-^- 

AOBB 20 E5 9B 
AOBE A2 F6 
AOCO 86 A 4- 

A0C2 

A0C2 AO 06 


FPUSHl 

JSR 

-_^SR- 

JMP 

FPSHLD 

-LDX- 

CPX 

BCC 

-LDA- 

JSR 

LDX 

-STX- 

FPCIO 

LDY 


ttNSEMSO 

ERRSUB-f STACK UNDERFLOW 

FPPTR 


#FPSTK/256 


iPUSH FRO ON FPSTK 

FPSHLD- - 

FSTOR 


FFPTR- 

#FPREC 
FPFTR- 


FPSHLD jPUSH FRl ON FPSTK 

-FSTl^ 

FPSH05 

-j LSAD f^EGISTERS at CHECK FOR OVERFLOW 

#FPSLEN*FPREC 
FPCIO 

-#NSFHS^- - 

ERRSUB iSTACK OVERFLOW 

#FPSLEN-1*FPREC 
FPFTR ” - 


#FPSTK/256 































































COLLEEN CALCULATOR, BY C SHAW 


r 


A0C5 


SUBCAL 


AOC5 C9 95 
A0C7 90 05 


i PERFORM OP A (ROUTINE CALLED WILL DO RTS) 


AOCB 4C E5 9B 
AOCE 


CMP 

BCC 

-LDA 

JMP 


#EQUAL+1 

SBCL5 

#KEYMSe 

ERRSUB 


i NOT VALID COMMAND (COULD HAPPEN IN EXECUTE MODE?) 


-A OCE 


AOCF A8 
AODO A9 74 
-AOB2 -©5- 95-- 
A0D4 A9 BB 
A0D6 85 96 


-A0D8-- 


AODA E6 96 
AODC 


-ASL- 
TAY 
LDA 
- STA- 
LDA 
STA 

—BOG- 


ttUMPTBL 

UMPTRl - 

#JMPTBL/256 

JMPTRl+1 


INC 


JMPTRl+1 


-AODC ©t-95- 


AODE 85 97 
AOEO C8 


-LDA- 


-A OE - 1 B l—95- 


A0E3 85 98 
A0E5 6C 97 00 


STA 
I NY 

-LDA— 
STA 
JMP 


- (UMPTR l L, Y- 
JMPTR2 


iSECOND PAGE OF TABLE 

1 LOAD AND STORE JSR ADDRESS 


-(-JMPT-PLT-,-\^ 
JMPTR2+1 
{JMPTR2) 


C' 
t ■ 
t 

c 

c 

c 


RETURN NEXT INPUT CHAR IN A REG 


AOEA FO 07 


AOEE B5 83 
AOFO 4C 43 A1 


LDA 

JMP 


TOKTMP-1, X 
GETC10 


1 USE CHARS FROM PREVIOUS CALL 
iSAVE CHAR IN TOKBUF 


I# 

I • 


~#K-roeB - 


A0F5 A9 07 
A0F7 9D 42 03 
-A0FA-A5-S2- 


LDA 

STA 


L - DA- 


AOFC 9D 44 03 
AOFF A5 S3 
-A^©l- 9D-45-03 - 


A104 A9 01 
A106 9D 48 03 
-iArl-09- A ^ -- 00 


STA 

LDA 

-STA 

LDA 

STA 

-tr DA — 


#GETCHR 
ICCOM,X 
-T0I4PT©- — 
ICBAL,X 
TOKPTR+1 
-ICBAH, X - 


;GET FROM K: (DATA RETURNED IN A, STATUS IN Y) 


#1 


ICBLL,X 

-#o- 


; i 

I 


AlOB' 9D 49 03 


STA 


-^At©E-20-56—E4- 

Alll CO 01 
A113 DO 36 


-JSR - 
CPY 
BNE 


-e^iov- 

ttSUCCES 
GETC12 


;BREAK => DELETE LINE 


._J 


A115 C9 9B 
A117 90 14 


CMP 

BCC 


#$9B 

GETC06 


-AtT9-D Q 0 4 

AllB A9 20 
AllD DO 3C 


LDA 

BNE 


;CR => CHANGE TO BLANK AND DON'T PRINT 


Al -TP- 

AllF C9 FD 
ftiai BO 2C 





























































COLLEEN CALCULATOR, BY C SHAW 


A123 

Ai27 

A129 


C9 AO 
®e~Otir- 

C9 9C 
FO 2B 


A12D 

A12D 


A131 

A133 


29 7F 
FQ IE 

C9 IB 
BO 04 


A137 DO OA 
A139 

- A13 9 C9 61 

A13B 90 06 
A13D C9 7B 
- A13F BO 02 - 

A141 E9 IF 


CMP 

-BOS- 

CMP 

BEQ 

-BNE- 


AND 

-BEQ- 


CMP 

BCS 


#*A0 

-OE~TC-06— 
#DELLIN 
0ETC20 


BCC 

CMP 

-BOS- 


#$7F 
OETOiS- 
miB 
GETC07 
—#2*32— 
GETCIO 


- 

GETCIO 
#'2+32+1 
- GETCIO - 


A143 C9 20 
A145 FO 14 


CMP 

BEQ 


#' 

GETC30 


A147 C9 7E 
A149 DO 04 


A14B A9 9C 
A14D DO 07 


A14F 48 
A150 A9 IB 
- A152 2 0 F2 A2 - 

A155 68 
A156 


A157 20 F2 A2 
A15A 68 


A15B 

A15B AO 00 
-A- 15D 91 8- 2 - 

A15F 60 


CMP 

BNE 


QETC1& - 


LDA 

BNE 


PHA 

LDA 

— USR- 
PLA 

i 

- —FHA- 


JSR 

PLA 


LDY 

-STA- 


#BACKSP 

GETC15 


#DELLIN 

GETC20 


#ESC 

-P-TOHR- 


#0 

-H'QKPTR^Y 


-AO-FB— 

9C-9F 

DON'T ESCAPE IF DELETE LINE (90 

9D-9F- 

0-9A OR AO-FD 

STRIP OFF INVERSE VIDEO, IF ANY 
O - 


1—lA (CONVERT CTRL GRAPHICS TO UPPER CASE LETTER) 
JMP 

LOWER CASE ALPHA TO UPPER T^ASE 


CARRY SET 


iDON'T PRINT SPACE 


i JMP BACKSPACE IS EQUIV TO DELETE LINE 


;PUT ON SCREEN 



















































COLLEEN CALCULATOR, BY C SHAW 


A160 


GETDHO 


A160 20 ES AO 


- 

A165 

A167 

1 ^ 

-C9L 

DO 

68 

-60- 

-9€- 

05 

-e«p- 

BNE 

PLA 

-#DEbblN— 

DHOCHK 

1 A169 

1 -A-i././l.. 

4C 

79 9A 

JMP 

.-ni inpi 

LEX 

AloL 



DHOCHK 


A16C 

r—-A16E 

C9 

-90- 

30 

-2B——— 

CMP 

-— 

#'0 

-DHOERR- 


A170 A6 87 
A172 EO 08 
- A17 4 B0-06- 


LDX 
CPX 
- - BNE- 


DHOFLG 

#8 

DHOlO— 


A176 C9 38 


■ 

-Ai9& 

A17A 

-A-lr70- 

-BO^ 

90 

-21r- 

lA 

DHOl. 0 

— oco- 

BCC 

-DHOERR 

DHOOK 


A17C 

EO 

02 


CPX 

#2 


A17E 

^4-00 

DO 

nn 

06 


BNE 

DH020 


A182 

LrT 

BO 

17 


BCS 

DHOERR 


A184 
—A4^B6 

90 

10 


BCC 

DHOOK 


A186 

C9 

3A 

L/riUCL/ 

CMP 

#'9+1 


A188 

-- 

90 

FA 

OC 

-4..A 


BCC 

DHOOK 

jjj if ... . 


A18C 

DO 

1 \J 

OD 


BNE 

CT 

DHOERR 


A18E 

-AHt90- 

C9 

90- 

41 . 

09- 


CMP 

--DCO- 

#'A 

-DHOERR- 


A192 C9 47 
A194 BO 05 

- 

A196 E6 82 
A19S AO 00 
-Ai9A-60 - 


CMP 

BCS 

INC 

LDY 

-R^FS- 


#'F+1 

DHOERR 


TOKPTR 

#0 





A19B 

A19B AO 01 
A19fH60- 


DHOERR 


LDY 


#1 


OET DEC, HEX, OR OCT DIGIT AND RETURN IN A,TOKBUF 


iIF DELETE LINE THEN POP STACK (SKIP RETURN) 


;ENTRY POINT IF ALREADY HAVE CHAR 

;ERROR --- 


iOCTAL 
iOK OCT 0-7 


j OK DEC OR HEX 0-9 
;ERROR DEC >9 


iSAVE CHAR ' 

^ OK EQ 




; NOT OK NE 

































































COLLEEN CALCULATOR, BY C SHAW 


u 


A19E 


GETINT 


-A4-9 E - A5 8 7- 




AlAO 48 
AlAl A9 00 
- A4A3 -85-87- 

A1A5 20 79 9A 
A1A8 A5 81 
-Al-A A G9- 96- 

AlAC FO 06 
AlAE 68 

-^AiAl^-85-87- 

AlBl A9 01 
A1B3 60 

-AiB4- 

A1B4 20 D2 A2 
A1B7 20 73 9E 
AlBA - 68 —- 


AIBB 85 87 

AIBD 


PHA 

LDA 


JSR 

LDA 


BEQ 

PLA 


#0 

- DHOPtO- 


LDA 

RTS 


LEX 

TOKCOD 

-#NUMBER 

GI05 

DHQFLG- 

#1 


JSR 
JSR 
P bA - 


PUTDEL 

FDSPO 


GINT2 


AIBD 20 D2 D9 
AlCO BO 04 

A1C2 A5 D5 - 

A1C4 FO 02 
A1C6 

A1C 6 A9 01 - 

A1C8 
A1C8 08 


AiCB 48 
AlCC 20 47 AO 

AlCF -6)8- 

AIDO 28 
AlDl 60 


JSR 

BCS 


FPI 

GIIO 

FRO + 1 


PHP 

-LDA- 

PHA 

JSR 

-PL A -- 
PLP 
RTS 


)GET INTEGER FROM 0-255 FROM KEYBOARD 


USEFUL FOR MEM REG #, FIX, BITS. 
RETURN EQ=> OK, NE => NOT OK 

_ -_ 

;SAVE DHOFLG 
iFORCE DECIMAL MODE 


i NE 

;DISPLAY # IN STANDARD LOC 
}RESTORE 

iENTR Y PT. IFJLREADY HAVE FRO^ 


-f-NR 


i-QLD-FRO ^ INTEGER 0-255 
jEQ or NE 







































































COLLEEN CALCULATOR. BY C SHAW 


A1D2 


A1D2 4A 
AIDS AA 

-A4 B 4- BD 29 B B- 


A1D7 BO 04 
A1D9 4A 


AIDE 4A 
AlDC 4A 
-A^e- 


AIDD 29 OF 
AIDF A6 99 
-A lEl EQ 02 


A1E3 DO OA 


A1E5 C9 OB - 

A1E7 BO 06 
A1E9 C9 06 


- AIEB 90 02 

AIED A9 05 
AIEF 

AIEF 60 - 


GETPRI 


LSR 

TAX 

-t©A- 


BCS 

LSR 

-bSR- 

LSR 

LSR 


- rn tmu, X 

GPRIO 


-GFR^-G- 


AND 

LDX 

- C P X 

BNE 


#^F 

RPNALG 


-CNP- 

BCS 

CMP 


GPR20 


BCC 

LDA 

-RTS- 


~#At:#NOP- 

GPR20 

#PHI DH - 

GPR20 

#P0R+1 

GPR20- 

#POR 


_1INPUT: A=™EN code. OUTPUT: A=PRIORITY 


AIFO 


AlFO A5 AO 
A1F2 FO 03 
A1F4 4C 5D 9 E 

A1F7 

A1F7 A9 01 
- A1F 9 8 5 A6-- 

AIFB 60 


INTDSP 


LDA 

BEQ 

-dMP- 


INDIO 


LDA 

--STA¬ 

RTS 


ilF INTERM THEN FDSCOMO ELSE DISP=TRUE 


INTERM 

INDIO 

H=DSeOM^ 

#1 

-Di^P - 
























































COLLEEN CALCULATORi BY C SHAW 


• 

IM 

(m 

<# 

¥ 


AIFC 


LDCHR 


AIFC 

-(firlFF- 

A201 

A204 


20 27 A2 
^ 30-21 - 

20 27 A2 
C6 8A 


JSR 

-BNE- 

JSR 

DEC 


A208 

A20A 


A20E 

A20F 


DO 15 
20 27 A2 

-©A- 

OA 

OA 


BNE 

JSR 


LDNIB 

HdDCfHO-^ 

LDNIB 

KEYLN2 

#1-©- 

LDCH05 
LDNIB 
-A- 


A211 
A214 
--A217- 
A21A 
A21C 


A21 ^ 

A21F 

A21F 


SD 64 OB 
20 27 A2 

-©D-64- OB- 

C6 8A 
C6 8A 

6f©- 


ASL 

ASL 

ASL 

STA 

JSR 

-8RA- 

DEC 

DEC 

-RTS— 


A 

—A— ~ 
LDCSAV 
LDNIB 
LDCSAV 
KEYLN2 
KEYLN2 


IS 


A222 
A222 AA 

A22G DD BE - B 6- 


-TABLE-l-i-^ 


-A22f- 


-tMi-r 


A227 A5 00 - 

A229 49 01 
A22B 85 80 


A22F C8 
A230 B1 
-A232^-AA- 


A233 4A 
A234 4A 
-A2S5-4A 

A236 60 
A237 

-A237-Bi-SC- 
A239 29 OF 
A23B 60 


EOR 

STA 

-BEQ- 

I NY 
LDA 

-L-SR- 

LSR 

LSR 

- —LSR 

RTS 

LDN20 

-LDA 

AND 

RTS 


-LFRT- 

#1 

LFRT 
LDN20 -- 

(PKPTR). Y 

A - 

A 

A 

A- 


< PKPTRtr Y 
#$F 


RETURN A=PACKED CHAR 


1 EXTRA BYTE 

SPECIAL 4-NIBBLE CHAR?" - 

NO. 2 NIBBLE CHAR 

YES. LOAD 2 NIBBLES OF ASCII 


rCOMBINE 2 NIBBLES 
i2 MORE EXTRA BYTES 

— RETURN 

;2 NIBBLE CHAR 


LOAD PACKED NIBBLE FROM PKPTR+Y.LFRT 


iLEFT NIBBLE 


;RIGHT NIBBLE 





































































COLLEEN CALCULATOR, BY C SHAW 


E 

A23C 

NCHKLD 



number THEN LOAD NUMBER INTO FRO FROM PRGMEM 


A23C AO 00 

A23E B1 C6 


LDY 

LDA 

#0 

(PC), Y 

i 


A242 C9 96 


CMP 

#NUMBER 



A244 DO lA 


BNE 

NCK30 


% 

1 

A248 B1 C6 


LDA 

(PC). Y 

- 

A24A C9 96 


CMP 

#NUMBER 

;NUMBER AT OTHER END? ] 


-A24C FQ 05- 


BEQ 

-l^GKl-O- 


<• 

A24E A9 OD 


LDA 

#KEYMSG 

! NO. ERROR 


A250 4C E5 9B 
-A253- 

-NCKIQ - 

JMP 

ERRSUB 



A253 20 55 AO 


JSR 

FSTOT 


% 1 

A256 20 62 A2 
-A259—BO“G6- 


JSR 

PCNCHK 

iSEE IF ROOM LEFT IN PRGMEM FOR # | 


A25B 20 89 DD 


JSR 

FLDOR 



A25E A9 00 


LDA 

#0 

i EQ 

i i 

A260 18 


CLC 


i 

* 1 

A261 

NCK40 



1 


A262 

PCNCHK 



;CHECK PC TO SEE IF ROOM IN PRGMEM FOR # 




1 A262 A6 C6 

A264 A4 C7 


LDX 

LDY 

PC 

PC + 1 

“RETURN CG —y —OK, CS“5^N0T OK- 



1 

A26S 90 07 

A26A EO F9 


BCC 

CPX 

PCNIO 

#-FPREC-l 




< 

1-A26C - 90 OS- 

A26E 

A26E 4C 9D 9D 

PCN05 

JMP 

EPERR 




i 

A271 E8 

A272 DO 01 


INX 

BNE 

PCN20 





--A274 CB- 

A275 

A275 60 

PCN20 

RTS 







A276 

A276 A9 m - 

A278 DO 02 
A27A 

-A 27A A 9 08 - 

A27C 
A27C IS 
iA27D 65 Ch 

A27F 90 09 
A281 A6 C7 
A2 83-E8- 

A284 EO 10 
A286 BO E6 
A288 86 C7 
A28A 

A28A 85 C6 
A2BC -60- 


PCINC 

--- ^ - 

BNE PCADD 

PCADDN 

--- 

PCADD 

CLC 

-ADC-PC-“ 

BCC PCADDl 

LDX PC+1 

- fm -- 

CPX #PC1MAX+1 

BCS PCN05 

—SIX-PC+1- 

PCADDl 

ST A PC 

-RT5- 


;PC <- PC+1 
i JMP 

rPC-“<- PC+FPREC+2 ' 

iINC MSB 

; END OF MEM? 
i YES. DON'T CHANGE PC 
j NO. STORE NEW PC 

;STORE LSB 

-rRETORt<|-eARKY CLEAR —!>-M0- ERROR- 




























































COLLEEN CALCULATOR, BY C SHAW 




jFTEMP <- FRO iFRO <- FRO - FP(A) 


» 

0 

0 

0 

0 


^ A2SD 

A28E 

1 A291 

48- 
20 55 
68 

AO 


-PHA - 
JSR 
PLA 

FSTOT 


A295 

A295 

20 B6 

DD 

INTC2 

JSR 

FMOVE 


j A29B 

4C D9 

AB 


JMP 

FtDOT 

SFSUB 


A29E 



PCLRO 



;CLEAR FRO 

A2A0 

FO 05 



BEQ 

PSETO 

i JMP 


A2A2 
A2A2 48 
A 2A3 - 20 : 


PHA 

JSR 


iMOVE FRO TO FRl, THEN SET FRO TO A 
t-FRl~<- FRO - - 


A2A7 

-A2A7-85-D4— 


PSETO 


iSET FRO TO INTEGER PASSED IN A 


A2A9 A9 00 
A2AB 85 D5 
A2A D 4C--AA-B9- 




-FQm 


A2B0 A6 A5 

-A2B2-£>0-e(ir- 

A2B4 A9 5E 
A2B6 20 E5 9B 

- A 2B 9 - E8 - 

A2BA 
A2BA CA 


LDA 

STA 


LDX 

BNE-- 

LDA 

JSR 

INX 


-FRO 

#0 

FRO+1 
-TFP^- 


OPPTR 

-POPIO 

ttOSEMSG 

ERRSUB 


A2BD BD 00 07 
A2C0 60 


DEX 

-STX-^ 

LDA 

RTS 


A2C1 


PUSHOP 


—A 2 C 1 A6 A5 - 

A2C3 9D 00 07 
A2C6 ES 

—A2e-7-D0^ 06- 

A2C9 A9 6A 
A2CB 20 E5 9B 
A2CE -- e A- 

A2CF 

A2CF 86 A5 
A2D1 60 


STA 
INX 
—BNE- 
LDA 
JSR 
DEX 


-PSHIO^ - 
#OSFMSe 
ERRSUB 


INTEGER A TQ- FP A 


jpqp a off OPSTK 


1 STACK UNDERFLOW 


iPUSH A ON OPSTK 


;STACK OVERFLOW 


STX 

RTS- 











































































COLLEEN CALCULATOR, BY C SHAW 


A2D2 

A2D2 -A9 -17- 
A2D4 85 54 
A2D6 


A2DS 85 55 
A2DA A9 9C 


--LDA- 

STA 

LDA 


«23 

ROWCRS 

—ttLMARQ 
COLCRS 
#DELLIN 


;DELETE BOTTOM LINE ON SCREEN 
iDELETE CURRENT LINE 


* ' 

A2DE 

-A2DE -A9^ 9B- 

PUTCR 

-BNE— 


i JMP 


' I e 

% 

A2E0 A6 54 

A2E2 EO 17 


LDX 

CPX 

ROWCRS 

#23 



e 

^ I 

A2E6 A9 10 
-A2ES -85- 54 


LDA 

#ROWSCR 

1 IF NOT ON BOTTOM LINE THEN DO NORMAL 
iOTHERWISE, DO SCROLLING & RETURN TO 

. CR 

BOTTOM LINE 

f 

<0 

A2EA 20 D6 A2 
A2ED A9 17 


JSR 

LDA 

PTDEL2 

#23 



f 

# 1 

A2F1 

A2F1 60 

RETNl 

RTS 




< 

0 

A2F2 

PTC HR 



PUT ONE CHAR (IN A) ON SCREEN 


4 


A2F4 

A2F4 AS 

PTCHR2 

TAY 

ttSIOCD 



1 ( 


A2F7 FO 03 

A2F9 AO 01 


BEQ 

LDY 

PTABC 

#SUCCES 

/DON'T PRINT => ALWAYS SUCCESSFUL 



1 

'i 

A2FC 

A2FC A9 OB 

PTABC 

—— 

LDA 

#PUTCHR 





A301 A9 00 

A303 9D 48 03 


LDA 

STA 

#0 

ICBLL,X 




t 

1_ 

A309 98 


TYA 






A30A—40 56—E4 




• rUAMACT CTATI !C PV HTCiDI AVTMA THU 131 IC 



0 

A30D 85 55 

A30F A5 CA 
- A31I-48— 

•—GHSTAT"” 

STA 

LDA 

-PHA-~ 

COLCRS 

DSPFLG 

1 WnrllNvyC. OIHlUw OT UJ. Or L-H T 1 imV» 1 Ul\ti Ur 





A31E BO 06 
A320 A9 20 
-A322 9D-00-05 
A325 E8 
A326 

A326 A 9 00 - 

A32a AO 05 
A32A 20 5E A3 


ALWAYS DISPLAY STATUS 


;ADD ONE BLANK TO CLEAR LONGER WORDS 


-LDtA- 

LDY 

JSR 


^frTOK-BOF- 

#T0KBUF/256 

PUTCHS 












































COLLEEN CALCULATOR, BY C SHAW 


L' 

A32D 68 

-A32&-e5-eA- 


PLA 




- 

A330 60 


RTS 



j 

- 

A331 

A331 86 A8 

r-A333-B^B-eO-BA- 

PTLINl 

STX 

TO 

; PUT UP ONE LINE OF SCREEN DISPLAY (FOR INIT) 

_J 

.0 

A336 20 F2 A2 
A339 20 50 A3 
^ -A3-3C A6 AO- 


JSR 

JSR 

PTCHR 

CTLR17 


■■ I 

' 1 

1 

* 

A33E BD CD B6 
A341 20 F2 A2 

1-A344 A2 L2- 


LDA 

USR 

CHRTAB+1, X 

PTCHR 



0 

1 A346 20 52 A3 

A349 A6 AS 

' -A34^3 TH3 -GE-Bfr- - 


JSR 

LDX 

—EDA- 

CTLR 

TO 


1 

% 

A34E DO A2 

1-A3-50- 


BNE 

PTCHR 

; JMP 



1 A350 A2 11 

1 A352 

‘ -A352-A9-2^r- 

CTLR 

LDX 

#17 

CVHL~N'S ON SCREEN^ (HORIZ. LINES) --—— r. -- ■ 

; PUT X CTRL R'S ON SCREEN 



A354 AO OB 

A356 DO 06 


LDY 

BNE 

#CTLRS/256 

PUTCHS 

i JMP 



A358 

A358 A2 10 

BLNK16 

LDX 

#16 

iPUT 16 BLANKS ON SCREEN 

1 


A35A A9 00 

A35C AO OB 


LDA 

LDY 

#BLKBUF 

#BLKBUF/256 

, PUT -X- BLANKS ON SCREEN - - — 

_ 


A35E 

^ . 

PUTCHS 




::::i 


A35E 48 

A35F 8A 


PHA 

TXA 


■A=1CBAL, Y=iCBAH, X=4 OF CHARS — ■ - - - 


<0 

; A362 9D 48 03 

A365 68 

_p-fC _ 

STA 

PLA 

ICBLL,X 

% 



A366 9D 44 03 
A369 A5 CA 


STA 

LDA 

ICBAL,X 

DSPFLG 



1 

A36D AO 01 

A36F 60 


LDY 

RTS 

ttSUCCES 

;DON'T PRINT => ALWAYS SUCCESSFUL 

_ 1 


A370 98 

A371 9D 45 03 


TYA 

STA 

ICBAH,X 




-A374 A9 00 

A376 9D 49 03 
A379 A9 OB 


STA 

LDA 

ICBLH.X 
ttPUTCHR 




-A37B 9B 42 03 


STA 

I'CCOM, X 




A37E 4C 56 E4 


JMP 

CIOV 



<0 

A3S1 

A3S1 A5 AB 

PTCRPN 

LDA 

NUMFLG 

i IF PREVIOUS TOKEN WAS NUMBER THEN PUT CR ON PRINTER 



PUTCRP 


LDX 


PRNFLG 


iPUT CR ON PRINTER IF PRINTER IS ON 


r 







































































COLLEEN CALCULATOR, BV C SHAW 


A387 FO 30 


BEQ 

1 HA 

RETN2 

nooV—V b 

1 A38B A2 20 


L-L/fn 

LDX 

WV/ lx 

#PIOCB 

j A38D 20 F4 A2 


JSR 

PTCHR2 

1_ A P AF _ 

rTw 7 w *rw riC ttw 

. 

--- 

-RRNCHK 


# 

r 


A393 85 AC 
A395 86 AD 
A397 8 4 AE- 

A399 20 5E A3 
A39C A6 9D 
-A39^H=0-Ht9- 

A3A0 A2 20 
A3A2 A5 AD 
- A3A 4- 9D -^-03- 

A3A7 A5 AC 
A3A9 A4 AE 
A 3AB aO 66 A 3- 

A3AE 

A3AE CO 01 
A3 B O - F O - 0 7-- 

A3B2 CO 80 
A3B4 FO 03 
A3B6 4 C 0 9 A9 

A3B9 
A3B9 60 


STA ASAVE 

STX XSAVE 

-STY-YSAVE 

JSR PUTCHS 

LDX PRNFLG 

--—--&EQ-^^ETN2 

LDX #PIOCB 

LDA XSAVE 

-STA-I CBLLi X 

LDA ASAVE 

LDY YSAVE 

--dSR-FTCflSE- 

PRNCHK 

CPY #SUCCES 

--RETN2- 

CPY tt$80 

BEQ RETN2 

-d«P---OFFERF— 

RETN2 

RTS 


A3BA PTTXTP 

-A3BA-^Q -9 3 - A3 -^^SR- 

A3BD 20 85 A3 JSR 

A3C0 20 DE A2 JSR 

-A303 60- -RTS- 


-P-TOHSP 

PUTCRP 

PUTCR 


JCHECK-TO SEE IF PRINTER STIEL THERE - 

;PUT CHARS ON SCREEN AND PRINTER (IF OPEN) 
A=IOBAL, ^“TCBAH, X=# OF CHARS - - 


SUCCESSFUL PRINTING? 

YE&— 

BREAK KEY ABORT? 

YES. OK - WILL BE HANDLED LATER 
-NO- CEOSE PRINTER &DISPLAY ERROR MSG 


;PUT TEXT ON SCREEN AND PRINTER (IF OPEN) 



























COLLEEN CALCULATOR, BY C SHAW 


u 


A3C4 

-A3G4-A9-0e- 

A3C6 48 
A3C7 84 8D 
-A 3G9 8 6^Ae- 

A3CB A9 00 
A3CD 85 8C 
-A3GF—AS--- 

A3D0 68 
A3D1 

A3D1 91 BC 


A3D3 C8 
A3D4 DO FB 
-A3D<6^-E6 8 D ^- 

A3D8 A6 SD 
A3DA E4 AS 
-A 3DC -DO-F3- 


PHA 

STY 

-ST-^- 

LDA 

STA 


I NY 
BNE 
-HMC- 

LDX 

CPX 

-BNE 


-#0 —- 

CLRPTR+1 

-W-- 

#0 

CLRPTR 


-fOLRPTT^^^-Y- 


INIT3 

-GtRPT^-H 


CLRPTR+1 

TO 

-IN-I T3 - - 


A3DF 


SAVCHR 


A3DF AO 00 
A3E1 B1 82 
A 3E3 A 6 8 6 - 

A3E5 95 84 
A3E7 E6 86 
-A3E9--60- 


LDY 
LDA 
—bD^ 
STA 
INC 


#0 

(TOKPTR),Y 

-TOKTIN--- 

TOKTMP,X 
TOKTIN 


-ASFA- 


A3EA E4 94 
-A 3 EC 90 OD - 

A3EE FO OB 
A3F0 86 94 
A3F5 A2 03 - 

A3F4 

A3F4 B5 SC 
-A 3F6 9 5 90 

A3Fe CA 
A3F9 10 F9 


A3FB 
A3FB 60 


-SAvmr 


CPX 

—-BOC- 
BEQ 
STX 

— 


DEX 

BPL 


KMATCH 
—KEY30— 
KEY30 
KMATCH 
—#3- 


PKPTR,X 
-KYPTSV.-^— 


fMEM ^JPPER LIMIT 


MOVE-CHAR FROM TOKBUF TO TOKTMP 


.SAVE LONGEST MATCH 





























































































































COLLEEN CALCULATOR, BY C SHAW 


A452 8A TXA 

-A453- ^ t 82-STA^ 

A455 Ca INY 

A456 98 TYA 

- A45^-4&-- -PHA- 

A458 A4 8B LDY 

A45A C6 8A DEC 

--AA5C-DO-EC-BNE- 

A45E 68 PLA 

A45F AS TAY 


-RT^ 


—(^--OKPTFf 


LDNBSV 
KEYLN2 
TJNFIO- 


A463 C9 8E 
A465 90 OF 

A469 BO 2D 
A46B AA 

-A46&-BD B6 
A46F 8D 00 05 
A472 AO 01 

-A 47 4 DQ -OE- 

A476 

A476 20 FC A3 


A479 A5 8F 
A47B C5 81 
A4 7D DO -OE- 

A47F A2 00 
A481 20 3F A4 


A484 84 82 
A486 A9 9B 


CMP 

BCC 


BCS 

TAX 


STA 

LDY 


— T^CGD 
#STAR 
UNKYIO 

- -#EOyAb+l— - 

UKERR 

-TOKGHR-STAR, 

TOKBUF 

#1 

—UNKRTN- 


LDA 

CMP 


STY 

LDA 


UNPINT 

KEYCNT 
TOKCOD 
-UNKY20- 


#TOKBUF 

UNPACK 

TOKPTR 

#CR 

TOK^ UFt-Y^ 


A48B 18 
A48C 60 


CLC 

RTS 


A48D 

A48D 20 OF A4 


-A49Q F O - 0 6- 

A492 20 IB A4 
A495 4C 79 A4 


UNPNUM 
-UKEfW- 

UNPNXT 

UNPLP 


JSR 

UMP 


A498 

A498 A9 OD 
-A49A-4€-e5-^fi- 


UKERR 


LDA 

-UMP- 


ttKEYMSG 

-EfmSUB— 


:UNPACK KEYWORD GIVEN TOKEN CODE IN TOKCOD 

iOUTPUT: CHARS IN TOKBUF, Y=TOKPTR, CS 


j OUT OF-RANGE? 

YES. 

NO. SPECIAL CHAR 


UMP- 

INITIALIZE 


NO ERROR 

CONTINUE WITH NEXT WORD 


IF ERROR 


END OF-biST => ERROR (SHOULDN'T HAPPEN) 







































.nrrr- 


COLLEEN CALCULATOR, BY C SHAW 


A49D 

-A49D -20 iAO- 

A4A0 20 AB AA 
A4A3 A9 01 

-A4A5-2O-E0-AB 

A4Aa 20 BA B4 
A4AB 20 B6 DD 


A4B1 A9 45 
A4B3 20 6A 9C 


A4B9 DO 09 
A4BB C9 64 


—aJSR - 
JSR 
LDA 
-JSR 
JSR 
JSR 


LDA 

JSR 

- JS R- 


-^FFHJSHO 

SSQUAR 

#1 

- INTSUB^ 
SSQRT 
FMOVE 
-FPORO 


ttMEMMSG 

PUTMSG 


BNE 

CMP 


A4BF 85 AF 
A4C1 A2 00 


STA 

LDX 


A4C4 

A4C4 A9 76 
-A406-4€-E5^-9B- - 


LDA 

-JMP- 


GMERR 

ttMEMLEN 

GMERfi- 

MEMNUM 

#0 


#BITMSG 

--ERRSUD- 


A4C9 20 D5 A4 
A4CC 4C 89 DD 


JSR 

JMP 


MEMLD2 

FLDOR 


A4CF 20 D5 A4 
A4D2 4C 98 DD 


JSR 

JMP 


A4D5 85 AF 
A4D7 

—A 4D7 AQ 08 
A4D9 A5 AF 
A4DB OA 
-A4DC-65-AF — 
A4DE 90 01 
A4E0 C8 


A4E1 OA 
A4E2 90 01 

- A4E4-eB— 

A4E5 
A4E5 AA 

-A4E6-60- 


STA 

-LDY— 

LDA 

ASL 

-ADC— 

BCC 

INY 


MEMLD2 

FLDIR 


- -#MEM0RY/256- 
MEMNUM 


MEMNUM - 
MLDIO 


ASL 

BCC 

-TNY- 

TAX 

-RTS- 


iFRl <- SQRT(1-FR0*FR0) FOR ARCCOS, ARCSIN 


;FETCH & STORE MEMNUM 
iDISPLAY "ENTER MEMORY REGISTER 0-99" 


iERROR 

; OK 0 -> MEMLEN-1 
iEQ => OK 


iDISPLAY ERROR MESSAGE (WILL RETURN WITH NE => ERROR) 
rFRO-<- MEM(A) 

iFRl <- MEM(A> 


iSET UP X & Y REGS TO LOAD OR STORE MEM(A) 
iSET UP X & Y REGS TO LOAD OR STORE MEM(MEMNUM) 

;MEMNUM <- MEMNUM*6 (FPREC=6) 

i(CARRY IS CLEAR) 


_ 


■!P:r'?S„2Z 


A4E7^- 

A4E7 20 B1 A4 
A4EA FO 04 
A4EC 6 8- 

A4ED 68 
A4EE 38 

-A4EF-n60- 

A4F0 

A4F0 20 9C AO 
A4F3 20 - ^ i fe -p p 

A4F6 20 D7 A4 


-MEMSUfl- 

JSR 

BEQ 

-FtA- 

PLA 

SEC 

-RTS- 

MSIO 

JSR 

-JSR- 

JSR 


. rSET UP FOR DIV, PRO, SUB, SUM, XCHM, SRCL 

GETMN (GET MEMNUM 

MSIO 

^ ^-terror =y- RETURN' 2 LEVEL.S UP^ 

iINDICATE ERROR 


FPUSHO 

- FMQVE 

MEMLDR 


;SAVE X ON STACK 
-r FRl <- X —-— 

;SET UP X & Y REGS 















































A4F6 20 D7 A4 


JSR 


MEMLDR 


Irni X A 

/SET UP X Si Y REGS 


COLLEEN CALCULATOR/ BY C SHAW 


Li 




A4F9 20 89 DD 
-A 4FC 18 - 


A4FD 60 
A4FE 

-A 4FE 85 AF 


A500 20 D7 A4 
A503 20 98 DD 
A5Q6 4C 8C AB- 


JSR 

-etc- 

RTS 


FLDOR 


MEMMUL 


-ST^ 

JSR 

JSR 

-UMP- 


- NEMNUM 

MEMLDR 

FLDIR 

- SFM U L 


;FRO <- MEM(MEMNUM) 
-HHnM&TCATE-NO- ERROR— 


/FRO <- FRO#MEM(A> 


0 












































COLLEEN CALCULATOR, BY C SHAW 


Li 

COLLEEN CALCULATOR, BY C SHAW 

. IF 

ASMBL 





DAYERR 

LDA 

#DAYMSG 



JSR 

SEC 

ERRSUB 

PCLRO 

4 








. ■'y ' 





LDA 

FRO 



JSR 

FSTOT 



JSR 

SINTEG 

# 


LDA 

#100 


4 / 

JSR 

INTMOD 



LDA 

MODFAC+1 



BEQ 

DAYERR 



BCS 

DAYERR 


' r.‘ ' 

SED 




STA 

MODFAC+1 



CLD 


f [! 


BCC 

DAYSIO 

l’ 


SBC 

#6 



TAX 




LDA 

FRO+1 





► 


CMP 

MAXDAY, X 

■ 1 


BCS 

DAYERR 




-“DAYTRM, X“ 



STA 

DAYTMP 

1 


- fJSR - 

- FPUSHO 



JSR 

FLDOT 

L 


JSR 

SFRACT 



- tBX— 

—#e-K^OQ - 



LDY 

#C10000/256 



JSR 

FLDIR 

1 


“JSR - 

-SFMUL - 



JSR 

SINTEG 



LDA 

FRO 



- CMP - 

- #»41 



BNE 

DAYERR 



LDA 

FRO+1 



~“CMP~“ 

#$1:6 .. 



BCC 

DAYERR 



JSR 

FSTOT 



LDX 

#C365 



LDY 

#C365/256 


jTHIS CODE LEFT OUT IF ASMBL=0 

INPUT; FRO IN MMDD. YYYY FORMAT - 

Z = YYYY; IF (MM-1) <=1 THEN Z=Z-1; 

OUTPUT: FRO = FACTOR = 365*YYYY + DD + 31*(MM-1) - (DAYTRM, (MM-D) 
+ INT<Z/4) - INT( . 75EINT(Z/t0e)+H ) - - - 


;CLEAR X 
;INDICATE ERROR 


j MUST BE >0 


iCOMPUTE-DD = X MOD 100 


CHECK MM AND DD 
MM = 0 => ERROR 

MM > 12 => ERROR 
MM <- MM-1 <0-$ll) 


;OEC—^-INTEGER 


;DD = 0 => ERROR 


;DD TOO LARGE 
; SAVE INT(. 4MM+2. 3) 

;PUSH DD 

•YYYY <- FRACT<X) * 10000 


; MUST HAVE $41, YY, YY, 0, 0, 0, O 

;YYYY MUST BE GE 1600 
;FTEMP <- YYYY 




i365 * YYYY 








































.. 

^ COLLEEN CALCULATOR, BY C SHAW 




K-- vt 


FLDIR 


JSR 
USR - 

LDX 
_ bBY- 
JSR 
JSR 
EDA- 
JSR 
JSR 


FPOPl 

-SFADD' - 

#MODFAC 

-#MQDFAC/256 

FLDIR 

FPUSHO 

--#31-- 

PSETO 

SFMUL 





JSR 

-LDA- 



FPUSHO 


f./i' 


JSR 

-LDA-#4- 

JSR PSETO . 

JSR FMOVE 

—JSR-FbDOT- 

JSR SFDIV 

JSR SINTEO 

^SR-FPOPl - 

JSR SFADD 


... : 


sJSR 

LDA 
JSR 
—JSR- 

JSR 

JSR 


#100 

PSETO 

--FMOVE- 

FLDOT 

SFDIV 


-itt- '• ^ 

INTADD 

SINTEG 

--#eRT^5- 

#CPT75/256 

FLDIR 

SFM Ufc- 

SINTEG 


JSR 

JSR 

-LiJX- 

LDY 

JSR 

J 3R— 


DD 

365*YYYY + DD 


LOAD MM-1 


3m-(MM-l) 

365*YYYY + DD + 31«(MM-1> 

JAN OR FEB? 

NO. 

YES. YYYY <- YYYY-1 
iCARRY IS CLEAR 


iADD -(DAYTRM, (MM-1)) 


iADD INT(YYYY/4) 


SUB TNT( . 75C INTI (YYYY/lOO + l ]-> 


; YYYY 
;YYYY/100 


;1+YYYY/lOO 























































































COLLEEN CALCULATOR, BY C SHAW 


JSR FMOVE 

USR--FPOFQ- 

UMP SFSUB 


HYPSUB 


JSR FPUSHO 

JSR SCHGSG 

JSR-SEXFE 

JSR SXCHGY 

JSR SEXPE 

-JHP- FPOPl - 

. ENDIF 


;FRO <:- EXPE(X), FR1<- EXPE(-X) 
-^-FOR GOSH, - SINH —- 

-;EXPE(-X)- -- 

iEXPE(X) 




































































COLLEEN CALCULATOR, BY C SHAW 


¥ 


A509 

-A509 A9-a4 
A50B 18 
A50C 65 FB 
-A50E AA 
A50F AO B6 
A511 60 


LrDA 

CLC 

ADC 

-TA1<— 

LDY 

RTS 


jLOAD X & Y REGS IN PREPARATION FOR LOADING REG 0 OR 1 WITH PI/2, 90 OR 100<IF GRAD) 
- -#RADPI2- — ' -^ 


#RADP12/256 


A512 

A512 A2 03 

-A&IA- 

ASM B5 BD 
A516 49 FF 
-A^tB-9&-BD- 

A51A CA 
A51B 10 F7 
A 51D 6 0 - 


;TAKE COMPLEMENT OF BINARY 


LDX 


#3 


SCL-P2- 


LDA 

EOR 


BINARY,X 
#tFF 

-STA-^B-tNARY, X 

DEX 

BPL SCLP2 


A51E 

A51E 20 12 A5 


iTAKE COMPLEMENT OF BINARY AND ADD 1 


A523 DO OA 
A525 E6 BF 


A529 E6 BE 
A52B DO 02 


USR 

— me- 

BNE 

INC 

-BWE- 

INC 

BNE 


SCMP2 

--BIt4AR¥-H3- 

STCRTN 
BINARY+2 
—S TG R- T N- 

BINARY+1 

STCRTN 

—BTMARY+0- 


A52F 
A52F 60 


A531 AA 
A532 FO OD 
A 5 3 4 - 

A534 28 
A535 08 
- A536 
A538 26 BF 
A53A 26 BE 
-A53e 26-BD- 
A53E CA 
A53F DO F3 
A 5 4 1- 

A541 28 
A542 60 


-PHP-- 

TAX 

BEQ 


PLP 

PHP 

R€L- 

ROL 

ROL 

ROL 

DEX 

BNE 


iSHIFT BINARY LEFT A PLACES 
rROTATHMG- IN CARRY 


BHvtARY+3 
BINARY+2 
BINARY+1 
BINARY+O 

SLS05 


PLP 

RTS 

























































COLLEEN CALCULATOR, BY C SHAW 

A543 SNUMB 



A543 A5 87 


LDA 

DHOFLG 

NUMBER PROCESSING: CONVERT ASCII IN TOKBUF TO FP IN FRO 

^'1 


A547 A9 FF 


LDA 

#-i 



9 

AS4B 20 9E A2 
A54E 

JSR 

SNUM20 

PCLRO 

iHEX BINARY OR OCT => CONVERT TO F. P. 

i 

9 

A550 AO 00 
A552 B1 82 


LDY 

LDA 

#0 

(TOKPTR),Y 



» 

A556 DO 3B 


BNE 

SNUM25 

;CONTINUE 

(2'>(BITINT-1 )-l ) AND <= BITBN2 (2-^BITINT)-l? 
iSAVE FP # 

i CONVERT FP TO BINARY (4 BYTES) 

i 

0 

A558 20 9C AO 
A55B 20 2F 9E 


JSR 

JSR 

FPUSHO 

FPBNCK 



A561 A2 00 
A563 

BBLPl 

LDX 

#0 


e 

,# 

A565 D5 B1 

A567 FO 04 


CMP 

BEQ 

BITBIN,X 

BB05 

; OK SO FAR 

t 


A56B 90 4B 

A56D 

A56D EB 

BB05 

BCC 

SNUM50 

—i > BI-TB-IN“=5' OKr 
i<: BITBIN => RETURN 

f 


A56E EO 04 

A570 DO FI 


CPX 

BNE 

#4 

BBLPl 

g^KII IMRn_ - - 

; CONTINUE 

' j = BTTBIN —RETURN 


'[ 

A 574 

A574 A2 00 

BBIO 

LDX 

#0 


t 


A576 B5 BD 

A578 D5 B5 


LDA 

CMP 

BINARY.X 
BITBN2, X 

_^nu- cin- PAB - - ^ _ - ____ 

« 

■L 

-A57A FQ -04- 

A57C BO 3A 

A57E 90 05 


BCS 

BCC 

SNUM50 

BB30 

, wr\ Ou rHrl 

i> BITBN2 => RETURN 
;< BITBN2 => OK 

i 


A580 E8 

A581 EO 04 


INX 

CPX 

#4 



F 

-A583 DO FI- 

A5S5 

BB30 


BBLP2- 

;= BITBN2 => OK 

_..rjl/——T'MDI IT LIAC DC-AI 1 V- MET AMT- AO- .— 



- A5&5 -AS—63 - 

4587 

A587 B5 BD 

BBLP3 

LDX 

LDA 

HtO- 

BINARY, X 

1 UK —INrUI Who r{tHL.l_i ntHN 1 no INtt. tt 

, 0R WITH BINMIN= -<2''( BITNIT-1 ) ) TO EXTEND SIGN BIT 



A589 15 B9- 


-ORA 

BTNMiNr-X - 




A58B 95 BD 


STA 

B INARY. X 




A58D CA 

-ASSE -1Q-F7 - 


DEX 

-^Rt- 

-BBLRg- 

- -.- - - - - 



A590 4C AS 9C 


A=MSB WHICH SHOULD BE NEG. 

; CONVERT TO NEW FLOATING # (SHOULD BE NEG. ) AND RETURN 


A593 
A593 48 


PHA 

LDA - 


A D 94 A5 8 7 - 

A596 30 83 AB 
A599 68 


D H OFLQ 

INTMUL 


m 








































COLLEEN CALCULATOR, BY C SHAW 


L2 

A59A 

-/5t59g 

38 

-E9 

30 



SEC 



A59D 

A59F 

--ASAIr- 

G9 

90 

E9 

11 

02 

-07 



CMP 

BCC 

-#-^-0--—— 

#'A~'0 

SNUM30 

J 

A5A3 

A5A3 

20 

-AC- 

A1 

-4E- 

AB 

-A5 

SNUM30 

—SBC- 

JSR 

-^-HrO- 

INTADD 

J 

^ - 

A5A9 

A5A9 

a^ab 

A9 

AO 

00 
. Q5 


SNUN40 

—UMP- 

LDA 

-SNUM20- 

#TOKBUF 

» 

ASAD 
A5AF 
-A5B1 

85 

84 

Ay 

F3 

F4 

-QQ. 



—LDY- 

STA 

STY 

-#TQKBUF/256 

INBUFF 

INBUFF+l 

S 

A5B3 

A5B5 

85 

20 

F2 

00 

D8 


-LDA 

STA 

USR 

—-.'—^— 

CIX 

AFP 

• 

A5B8 

A5B8 

60 



SNUM50 

RTS 



0--9 

i-A-F—>-^0-15 

CONVERT ASCII TO FP IN REQO 































































COLLEEN CALCULATOR, 

BY C SHAW 




h 


• 



ROUTINES CORRESPONDING TO KEYWORDS 


A5B9 

A5B9 AS D4 

SABSVA 

LDA 

FRO 

; FRO <- ABSVAL(FRO) 


A5BD B5 D4 

A5BF 

RETURN 

STA 

FRO 



A5C0 

A5C0 AS D4 
' -ASG2-D0-06 

SACOS 

LDA 

- BNE— 

FRO 

iARCCOS<FRO) = ARCTAN(SQRT(1-FR0*FR0)/FR0> 


A5C4 

SACIO 



ARCCOS(0) = 90 DEG = PI/2 RAD. SPECIAL CASE BECAUSE TAN UNDEFINED 


ASC4 20 09 AS 

1 ASC7 4C 89 DD 


JSR 

JMP 

PIQVL 

FLDOR 

iLOAD X & Y REGS TO GET PI/2, 90 OR 100 ^ 


A5CA 

A5CA 48 

,- A5Gfi-aO-9D-A4— 

SAC30 

PHA 
^SR - 

- ARGSUB— 



ASCE AS EO 

1 A5D0 DO 12 

- A#B2 -68- 


LDA 

BNE 

FLA 

FRl 

SAC34 

i FRl St— S(3RT(1—FRO*FRO) - - ___ _ _ , 

Ip 

ASD3 30 03 

ASD5 4C 9E A2 

-- 

-Q4-QAD-T 

BMI 

JMP 

S180PI 

PCLRO 

- i ABSVAL(FRO) = 1- - . __ 

;FR0=+1. ARCC0S(+1) = 0 

6 ! 

1 

A5D8 A6 FB 

-ASDA DO 03- 

blourl 

LDX 

RADFLG 
-SAC31 

" tFRO <- 1€0 OR 200 OR PL DEPENDING ON RADFLO - - - 


A5DC 4C 3C A9 
A5DF 

-A5DF A9 B4- 

SAC31 

JMP 

SPI 

,- RAD => PI 

' nPG 1 QA 

! 

•1 


i 

CPX 

BNE 

#GRADQN 

SAC32 

1 iovr _ 


A5E1 4C A7 A2 

; SAC32 

JMP 

PSETO 

i simHt? —J*' -- __ __ 

1# 1 

1 

A5E4 

A5E4 20 9B AB 
-A5E7 20 03 A A - 

SAC34 

JSR 

JSR - 

SFDIV 
—SREOTF 



A5EA 20 4C B4 JSR SATAN 

A5ED 68 PLA 

- ASEE l O-QF --BPt-RETURN- 

A5F0 20 B6 DD JSR FMOVE ;COS <0 => ADD 180 DEG OR 200 GRAD OR PI TO ARCCOS 

A5F3 20 D8 AS JSR SISOPI 

- A 5 F6 4 e-AArnAB- JMP -SFADD- - 

. IF ASMBL 

SACOSH iARCCOSH(X) = LN(X+SQRT(SQUARE(X)-1)) 


—-^-—--FPtfSHO- - - 

y; ' JSR SSQUAR ; X-»X 

LDA #1 

-JSR-itsffSUB-- - - - - - 

JSR SCHGSG i X#X“1 

AHYPSB ;FR0 <- LN(TOS + SORT(FRO)) 

-JSR-SSQRT--——-rSQRT-(-X^X-l)- —-- 

JSR FPOPl 

JSR SFADD 

-JMP— .3LN - 

. ENDIF 



j X+SQRT(X*X-1) 

- nzN (X -i- 3Q R T -<i ( -»»i(- l - ) ^ 


































COLLEEN CALCULATOR, BY C SHAW 


J 

V 1 

L 


A5F9 

A5F9 A6-9B- 

A5FB DO OB 
A5FD 20 E8 AS 


A602 20 08 A6 
A605 4C C3 A8 


BNE 

USR 

BOS— 

JSR 

JMP 


PRNFLQ 

SADVIO 

SON 


A608 A5 CA 


A60B A9 00 
A60D 85 CA 
A 60F -20-^^-A3- 

A612 68 
A613 85 CA 


LDA 

H=HA 

LDA 

STA 


A616 

A616 A9 01 


PLA 

STA 

-RTS~- 

LDA 


SADVIO 

SOFF 


DSPFLG 

-FUTORP- 


A61A 

A61A A9 02 


A61C 4C 3F AA 
A61F 


#ALGP 
-SALOlO - 


ttALGNOP 

SRPNIO 


A621 4C 2F I 
A624 


A627 A5 EO 
A629 DO OC 


A62D 08 
A62E 20 C4 A5 


A632 10 28 
A634 4C FE A6 


LDA 

BNE 

L-DA- 

PHP 

JSR 

PLP 

BPL 

JMP 


A637 20 9B AB 
A63A 4C 4C B4 


JSR 

JMP 


FRl 
SASIO 
FRO-- 


BINIOO 

SCHGSG 

SFDIV 

SATAN 

-ASMfil^ 


LDA 

JSR 

JSR 


-^SR— 

LDA 

JSR 


SABSVA 
FPUSHO 
-SSQUAR- 


INTADD 

-AHYPSS- 


PLA 

BPL 


BINIOO 

3CHQ 3 & - 


FPUSHO 
--M- 

INTSUB 
SXCHGY 
-#1- 


JSR 

JSR 

LH DA — 


;PUT CR ON PRINTER 
j-PR INTER ON ALREADY?- 
j YES 

iNO. TURN ON 
(ERROR 
iOUTPUT CR 
i TURN OFF St RETURN 

OUTPUT CR & RETURN 

(ALWAYS PRINT 


(RESTORE FLAG 


-r JMP 



; X <- X AND Y 


iARCSIN<FRO) = ARCTAN(FRO/SQRT(FROwFRO)) 
-i FRt-e- SQRT( 1-FRO*FRO) 


; I FRO 1=1 

(FRO <- 90 OR PI/2 

(RETURN FRO = +1. ARCSIN<+1) = 90 OR PI/2 
(FRO = -1. ARCSIN(-l) = -90 OR -PI/2 


(ARCSINH<X) = SIGN(X) LN (ABSVAL ( X)+SQRT (SQUARE( X ) + l > ) 

( SAVE SIGN - ^ 

(ABSVAL<X) 

7 X^O(- - - _ - — - 

(X*X+1 

rtN(-X+SGlR-T(X#X’H,) )-' - - 

(RETURN _ ^ _ 

-r-IF-Sl©N-I«-NEOATTVE THEN-ARCSUMHt-X-) <“0- 

(ARCTANH<X) = <LN(Cl+X)/(1-X))>/2 


( 1-X 




















































COLLEEN CALCULATOR, BY C SHAW 


-(1+X)/<1-X> 

LN((l+X>/<1-X)) 

MULTIPLY BY 1/2 (DIVIDE BY 2) 


BASE 2 OR BINARY 

CHANGE DHOFLG, STATUS MESSAGE 


iBINARY REQUIRES-16-BITS OR LESS 


GET INTEGER 

NOT GOOD - ERROR ALREADY REPORTED 



r 

t' 

f- 


-r-SET-GGT-ALrr HEX WORD-LENGTH TO 1-32 -BITS - 
BINARY TO 1-16 BITS 
iDISPLAY "ENTER 1-32" 


I Hi 


t 

r.) 

t/ 


SET BINARY TO O 

rSMTFT—LE^T BITIWT BITS WITH“OARRY- 


COLLEEN CALCULATOR, BY C SHAW 


m 

t 























































COLLEEN CALCULATOR, BY C SHAW 


-SBLP1 
SCMP2 



A6FE 


SCHGSG 


;ALWAYS DISPLAY 


iCONVERT INT 0-99 TO CHAR 00-99 


;(CARRY SET) 
i UMP 

;(CARRY CLEAR) 
iLSDIGIT 
i 2 CHARS 
iLSB OF ADDR 


;RESTORE OLD DSPFLG 


;DISPLAY FAHRENHEIT" 


iCELSIUS -> FAHRENHEIT F=(9/5)*C+32 









































f 





































COLLEEN CALCULATOR, BY C SHAW 


[A 


ASL A 

ADC FRO+1 




#NUMLEN-3 


t 


STA 

INX 

^^MY- 


CPY ttNUMLEN 

BNE SDAYLP 

-USR-DAYDSP- 

UMP DAYCOM 

-USR-DAYSUB- 

BCS SFDON 

JSR SXCHGY 

USR DAYSUB - 

BCS SFDON 

USR FPOPl 

-UMP-SFSU&- 


.ENDIF 


A741 

A 7 4 1 A 9 09- 

A743 4C BC AS 
A746 

A7 46 A 9 06- 

A74S 4C DE A9 
A74B 
A 7 4 B -H 
A74E 20 9B AB 
A751 4C El AA 
A7 -&4- 

A754 A9 91 
A756 A2 64 
A 758 A0 -3C- 


—USR-MEMSUfi-- 

USR SFDIV 

UMP SSUMIO 


A75A DO 06 
A75C 

-A 7 5C A 9 9 E - 

A75E A2 3C 
A760 AO 64 


LDA #ZDMS 

LDX #100 

-LrDY-#60-- 

BNE DEGSUB 

-LDA-#-ZBGDEG-- 

LDX #60 

LDY #100 


A762 8E 65 OB 
A765 SC 66 OB 
- A760 - g0 -i6A--9€— 


STX 

STY 


A76B 20 
A76C 2 0- 


B6 DD 
5 5 A 8- 


INTCX) 

USR 


A771 20 
A774 20 
-A77^20 
A77A 20 
A77D AD 
A7 8 0 -20- 

A783 20 03 AA 


9C AO 
6F AO 
-44 AS- 
9C AO 
65 OB 
4r7-A-2— 


USR 

USR 


XSAVE2 

YSAVE2 

-PUTMSG-- 

+ (FRACT(X) 
FMOVE 
5INTEG - 

FPUSHO 

FM0VE2 


USR 
LDA 
US R - 


FPUSHO 
XSAVE2 
-PSE76- 


« 


iCLEAR TOKBUF 

— iFACTOR <- FACTOR MOD 7- 


i3*(FACTOR MOD 7) 

i MOVE DAY-Of^-WEEK CHARS TO END OF TOKBUF 


- j-DISPLAY DAY OF WEEK IN NUMBER LOG-- 

iDISPLAY 

iDAYS BETWEEN DATES 

-rY DBD ^{ = DAYSUB(Y) -DAYSUB(X) - 

iERROR => RETURN 

- -i DAYSUB Y -- 

iERROR => RETURN 





































































COLLEEN CALCULATOR, 

BY C SHAW 



im 

A786 20 95 AS 


JSR 

SMOD 


A78C AD 65 OB 
A78F 20 A7 A2 


JSR 

LDA 

JSR 

FPUSHO 

XSAVE2 

PSETO 


A795 20 9C AO 
A798 AD 66 OB 


JSR 

LDA 

-SBQUAR 

FPUSHO 

YSAVE2 


j A79E 20 AB AA 

A7A1 20 98 AB 


JSR 

JSR 

-PSE-TG - 

SSQUAR 

SPDIV 

% 

A7A7 20 A7 AB 
A7AA 20 9C AO 
-A7AD AD 66 OB 


JSR 

JSR 

-SRMUL - 

SPADD 

FPUSHO 


A7B0 20 A7 A2 
A7B3 20 B6 DD 
-A7B6 20 34 AO 


JSR 

JSR 

-YSAVE2 - 

PSETO 

FMOVE 


A7B9 20 9B AB 
A7BC 4C A7 AB 


JSR 

JMP 

FLDOM— 

SFDIV 

SPADD 


A7BF 

A7BF 20 CO DD 
-A7C2 1C BC AD 

SEXPE 

JSR 

EXP 


A7C5 

A7C5 20 CC DD 
-A7C8 4C BC AB 

SEXPTE 

JSR 

CRYGHK 

EXP 10 


A7CB 

A7CB 20 55 AO 
-A7CE 20 BD A1 

SFACTO 

JSR 

GRYCHK 

FSTOT 


A7D1 DO 21 

A7D3 C9 45 


BNE 

CMP 

-6INT2— 

SFERR 

#69 




A7D7 AA 
A7D8 DO 02 

-ATDA-EB- 

A7DB 8A 
A7DC 

—A7De—- 

A7DD 20 A7 A2 
A7E0 

-^ 7E0 -2Q-B6-BD- 

A7E3 68 
A7E4 C9 03 

—A 7E6 90—1:1- 

A7E8 E9 01 
A7EA 48 

-A7E^-g0-TA 7 -A g 

A7EE 20 DB DA 
A7F1 90 ED 
- A7F3 68 - 

A7F4 

A7F4 A9 76 
-T fl r7F 6 - AC E5-9 B— 

A7F9 
A7F9 60 

-A7FA - 

A7FA A9 66 
A7FC 20 6A 9C 

-A7FF--A9-20 - 

A801 20 BO AB 


TAX 

BNE SFIO 


TXA 

SFIO 


JSR PSETO 

SFLP 

-JSR-FMOVE 

PLA 

CMP #3 

- &ee—— - SFD0N- 

SBC #1 

PHA 

-dSR-PSETO— 

JSR FMUL 

BCC SFLP 

- — - 

SFERR 

LDA #BITMSG 

-JMP- ER RS UB 

SFDON 

RTS 

-SFAMRE- 

LDA #FAHMSG 

JSR PUTMSG 

---LDA - 

JSR 


INTSUB 


iFRACT(X) MOD (1/XSAVE2) ALSO SETS UP MODFAC 
i SAVP Mnn 


XSAVE2''2/YSAVE2^2 
MULTIPLY BY MOD 
ADD INT(X) 

SAVE RESULT ON STACK 


;LOAD MODFAC 
1 M0DFAC/YSAVE2 

i ADD TO PREVIOUS RESULT & RETURN 
i FRO <- E-^FRO 


i FRO <- lO'^FRO 


i X! = X<X-n (X-2). 

iGINT2 WILL LOAD 
- i A= ITJTEOER-0-255 
iERROR 

iERROR- TOO-LARGE - 


; 0 ! = 


1 ! = 1 


iFACT <- N 


i X <- X-1 

^ INT -5-FP - - 

;FACT <- FACT * X 

7 GARRY SET => MULTIPLY ERROR (SHOULDN^T HAPPEN) 


;DISPLAY "->CELSIUS" 












































% 

li 

m 

% 


A 801 20 BO AB 


COLLEEN CALCULATOR, BY C SHAW 


A 804 

A 807 

A 809 

A 80 B 

-A80E^ 


A811 

A811 


20 FE A6 
A2 3C-- 
AO B6 
20 98 DD 
-9B-AB- 


A9 ID 

-6A-9£- 
20 9E A1 
DO 24 
Yit eiB C9-08 — 

FO 20 
C9 OA 
^30 -1-e- 


LDX 
LDY 
JSR 
-tJMP 

LDA 


SCHGSG 
--#e4PTB 
ttC1818/256 
FLDIR 

—SFqJTV- 


#FIXMSG 


A816 ; 
A819 1 


JSR 

BNE 


GETINT 

SFXERR 


A81D 
A81F 
--A82-1- 
A823 
A823 
-A82S 
AS27 
A828 A9 IE 


BEQ 
CMP 
BCS - 


85 CE 
69-30 


TAX 

LDA 


A82C A9 01 
A82E 85 54 
-A 830 A 5 - GA- 
A832 48 
A833 A9 00 


LDA 

STA 


A 8 35 I 


CA 


A837 8A 
A838 20 F2 A2 


PHA 

LDA 

STA— 

TXA 

JSR 


#DFIX 
—GOLTIRS— 
#ROWSTT 
ROWCRS 
-T>SFFLG~ 

#0 

-BSFFLO- 

PTCHR 


A83C 85 CA 
A83E 60 


STA 

RTS 


AS3F A9 76 
AS41 4C E5 9B 


A844 20 B6 DD 
A847 20 55 AS 


LDA 

JMP 

—SFRAC-T - 


AS4D 4C FE A6 


#BITMSG 

ERRSUB 

FMOVE 

SINTEG 

-SFSUB— 

SCHGSG 

ASMBL 


LDA ttGRADON 

JMP SRADIO 

-rENOIF-- 


A850 

A850 A9 10 


A855 

AS 55 A 5 D 4 
- A 8 57 - F O—TB- 

Ae 59 29 7 F 
AS 5 B 38 


LDA 

-BE O -- 

AND 

SEC 


FRO 

-STNTRT— 


A8 5 C E 9 40 - 

ASSE 10 04 
A860 A9 FE 
A86^ DO 04 
A864 

A864 C9 04 
-A866-fi0-0e— 
A868 


BPL 

LDA 

BNE-— 


CMP 

- B OS- 


#FPREC-; 

8 INT RT 


FAHRENHEIT—> CELSIUS C^ ( 5/9 )'M-(F-32) 


:DISPLAY "ENTER 0-7 OR 9" 

i GET NEXT TOKEN: WANT INTEGER 0-9 
iERROR 

(DON'T ALLOW FIX 8 

)ERROR - TOO LARGE 
iENTRY PT. IF A=VALID INTEGER 

i -> ASCII 

iDISPLAY IN STATUS AREA OF SCREEN 


i NUMBER OUT OF RANGE 

(FRO <- FRACTIONAL PART OF FRO 

;-(INT<FRO)-FRO) 

SET-GRAD MODE 

SET HEX MODE 

FRO <- INT(FRO) 

0 IS OK 

COMPUTE DECIMAL PT LOC 

JMP - 


-tARGE- 


TNie-R^RAGT^GhhAtr--PART 7 --& 0 N 'T DQ" ANVf Hf NG- 



























































COLLEEN CALCULATOR, BY C SHAW 


A868 AA 


A86A E8 
A86B A9 00 
-A86D- 

A86D 95 D4 
A86F E8 
-A8 7 Q EO 0 6 

A872 90 F9 
A874 

-A8 7 4-6 0 - 


TAX 

— -TNi(- 

INX 

LDA #0 

ST NT -4 0 - 

STA FRO, X 

INX 

--#F P1EC 

BCC SINT40 

SINTRT 


A875 

-A 87 - 5 - A5 A O- 

A877 49 01 
A879 85 AO 

-A87fi-^- 

A87C 

A87C 20 CD DE 
A87F 4 C BC AB 

A882 

A882 20 D1 DE 

- A885-^C -BO AB- 

A888 

A888 A9 00 
-A 8 8A 4 C 60 A A 

A88D 

- AaSD 48- 

A88E 20 9C AO 
A891 68 

-A892-20- A7 A 2 - 
A895 

A895 20 B6 DD 
~A898-20-3B-Aa 
A89B 20 AA AO 
A89E 20 9B AB 
A 8 A- 1 2 0 55 A 8- 

A8A4 A2 4C 
A8A6 AO OB 
-A8A8-20-A7^D- 

ASAB 20 75 AO 


SINTME 

-LDA- 

EOR 
STA 

-RTS - - 

SLN 

JSR 

-UMP- 

SLOGTE 

JSR 


SLSHF 

LDA 

— -JMP- 

INTMOD 

-FHAh- 

JSR 

PLA 

— -JSR- 

SMQD 


i<0 => ALL FRACTIONAL (ALL 0) 

i SET FLAG TO DISPLAY INTERMEDIATE RESULTS IN ALG 

-tNTERtr 

#1 

INTERN 


,FRO <- LN(FRO) 

LOG 

-- GRY CHK- - -- 

iFRO <- LOGIO(FRO) 

LOG 10 

-CSYCHK- - - - 

; Y LSHF X 

#0 

-SHFSUB- - --—_ 

iFRO <- FRO MOD A (ALSO MODFAC (- INKY/X)) 


FPUSHO 

PSETO - - 

iY MOD X = Y-X*INT<Y/X) 


JSR FMOVE 

-_jSR-FLDOS- -- -- 

JSR FPUSHl 

JSR SFDIV ;Y/X 

--SIWT-ES- ->-INT<Y/X) - 

LDX #MODFAC 

LDY #M0DFAC/256 

-- JSR -FSTOR- ; SAVE”INT<Y/X> IN MODFAC- 

JSR FPOPl iX 



-ABAE-20-8C-AB- 

ASBl 20 B6 DD 
ASB4 20 7E AO 
- A 8B 7 40 B 9- AB- 


-JSR- -SFMUl^' - 

JSR FMOVE 

JSR FPOPO 

^JMP-sFsys- 


INT(Y/X)-H-X 


; Y 

-rY—^-I NT (Yy - 

































































COLLEEN CALCULATOR, DY C SHAW 


LI 


A8BA 
-A8BA-A9-I 
A8BC 

A8BC 85 ( 
-A8BE-A9^ 

A8C0 4C I 
A8C3 

—A8G8-A9- 


;SET OCTAL MODE 


STA 

- LD A 


DHOFLG 
-HtDDEC- 


iCHANGE STATUS LINE ON SCREEN 
;CLOSE PRINTER 


A8C5 SD 00 05 
A8C8 A9 46 


-A8GyV-8D-04-05- 


—STA- 

— ^KBUF+1 
TOKBUF+2 
#3 



A8CD 8D 02 05 
A8D0 A9 03 

-A8D2 85 82- 


STA 

LDA 

—STA- 



A8D4 A9 20 

A8D6 20 OD A3 
-A8D9 A2 20- 


LDA 

JSR 

—LDX- 

#DOFF 

CHSTAT 

;CHANGE STATUS LINE ON SCREEN 


A8DB A9 OC 

A8DD 9D 42 03 
-A8EQ 20 56 E4- 


LDA 

STA 

—JSR — 

#CLOSE 

ICCOM,X 



A8E3 A2 00 

A8E5 86 9D 


LDX 

STX 

#0 

PRNFLG 

iALWAYS OFF 


A8E8 

A8E8 A6 9D 

-A8EA DO 3C- 

SON 

LDX 

PRNFLG 

-P^Pl|vj20 

iOPEN PRINTER FOR OUTPUT 


A8EC A2 20 

A8EE A9 03 

-A8F0 9D 42 03- 


LDX 

LDA 

—STA- 

#PIOCB 

#OPEN 

—lecoM, X- 

j^ALREADY—BPSN — - 


A8F3 A9 BB 

A8F5 9D 44 03 
-A8F8 A9^6- 


LDA 

STA 

#PBUFF 

ICBAL,X 



A8FA 9D 45 03 
A8FD A9 08 

A8FF—9D 4A-03 


STA 

LDA 

ICBAH,X 
#OUTPUT 



A902 20 56 E4 
A905 CO 01 

-A907-FO 08- 


JSR 

CPY 

CIOV 

#SUCCES 

-pQf4\|J^- 



A909 

A909 20 C3 A8 
-A9©€-A9-8E- 

OFFERR 

JSR 

—fcdDA- 

SOFF 

-#NQPMS0— 




A90E 4C E5 9B 
A911 

-A 911 A5 0 1- 

A913 86 9D 
A915 A9 4F 
--^^917“8D-O0 05 
A91A A9 4E 
A91C 8D 01 05 
A 9 1F A 9 Og- 

A921 85 82 
A923 A9 20 
—A9^5-2O--0D-A3— 

A92S 
A92S 18 

--A9g9-60- 

A92A 

A92A A9 01 
A92C 4C 2F AD 

A92F 


STX 

LDA 

STA 

LDA 

STA 

-fcDA— 

STA 

LDA 

J S R 


ERRSUB 


- 

PRNFLG 

#'0 

TOKBUF- 

#'N 

TOKBUF+1 
-#2 - 


TOKPTR 
#DOFF 
C H3TAT■ 


CLC 

-RTS- 


;N0 ERROR 
i Y OR X 


LDA 

JM P 
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COLLEEN CALCULATOR, BY C SHAW 




A993 A5 D4 

A99^5 -10-05- 

A997 A9 9B 
A999 20 E5 9B 

- A9 9 C - 

A99C 4C 9E A2 
A99F 

A 99F 20 5 5-AO 
A9A2 20 AA AO 
A9A5 A9 01 
A 9A7 8 5 AA- 

A9A9 20 44 AS 
A9AC A5 D4 

- 00-00 - 

A9B0 20 3B AO 
A9B3 20 44 AS 

-04- 

A9BS DO 02 
A9BA C6 AA 


LDA 

-BPL- 

LDA 


FRO 

-SPOW30 
#CRYMSO 
ERRSUB 

PCLRO 


JSR 

LDA 


#1 


JSR 

JSR 


BNE 

DEC 


SFRACT 

FRO 

-SP0W50- 

FLDOS 

SFRACT 

Ff?0- 

SP0W50 

INTFLG 


A9BC 20 7E AO 
A9BF 20 S2 AS 
-A 9G2 - 20 ^ 4 E A O 


JSR 

JSR 


FPOPO 

SLOGTE 


A9C5 20 SC AB 
A9C8 20 C5 A7 
A 9CB A5 AA 


JSR 

JSR 


SFMUL 

SEXPTE 


A9CD DO 03 
A9CF 4C 51 AA 



A9DC 

A9DC A9 00 
A 9 0E- 

A9DE 85 FB 
A9E0 A9 OB 
A9E2 4 0 OD A 3- 

A9E5 

A9E5 A5 99 
A 9 E7—DQ-03 
A9E9 20 9C AO 
A9EC 


JSR 

JMP 


STA 

LDA 

-JMP— 


LDA 

BNE 

JSR 


A9EF 85 D4 
A9F1 A9 00 


-A9 F3 05 D 5- 

A9F5 4C AA D9 
A9FS 


STA 

LDA 

STA- 

JMP 


-MEMSUfi - 
SFMUL 
SSUMIO 
FPUSHO 

#0 

RADFLG 
#DDEG 
C H ST - A -T- 

i X 

RPNALG 
-SRANW - 
FPUSHO 

-RANDOM- 

FRO 


A 9 F8 20 E7 A4 - 

A9FB 

A9FB A5 99 

-A9FD-F0-03- 

A9FF 4C 75 AO 
AA02 


LDA 

-SE®- 


RPNALG 

-SRCtSO- 


AA03 


SRECIP 


-FTS- 


;TAKE FRACTIONAL PART 


i X IS INTEGER 
i TAKE FRACTIONAL PART 

iY IS INTEGER 
; Y 

- i-X~ 

iBOTH INTEGER => ROUND TO INTEGER 


, MEM MEM*X 

- -^WSH « ON STACK- IF 

iSET RAD MODE 
iRADON 

;CHANGE STATUS LINE ON SCREEN 
RANDOM NUMBER FROM 0 TO 65535 

iIF RPN PUSH PREVIOUS # AS IN SPI 


-—rX-<- MEM- 


iNQT RPN => POP X OFF STACK 


































































COLLEEN CALCULATOR, BY C SHAW 


^ I 

•[ 


AA03 A9 01 
AA05 4C 92 AB 
AA08 

AA08 A9 AS 
AAOA 20 6A 9C 
AAOD 20 AB AA 
AAIO 20 55 AO 
- AA13 -20 3B- A0 
AA16 20 AB AA 
AA19 20 4E AO 
AAIC 20 A A AB 
AAIF 20 BA B4 
AA22 20 B6 DD 
-AA25 -20 55 AO 
AA28 20 7E AO 
AA2B 20 9B AB 
AA2E 20 24- A6 
AA31 20 9C AO 
AA34 4C 47 AO 

—AA37- 

AA37 20 03 AA 
AA3A 4C 76 A9 
A A 3D - 

AA3D A9 00 
AA3F 

AA3F 85 -99- 

AA41 A9 06 
AA43 20 OD A3 
—AA46- 

AA46 A9 01 
AA4S 85 A5 


LDA #1 

JMP INTDIV jFRO <- 1/FRO 

SRECTA ;->POLAR NEW X=R=SQRT(SQU(X)+SQU<Y)> NEW Y=THETA=ASIN(Y/R) 


LDA 

JSR 

JSR 

JSR 

JSR- 

JSR 

JSR 

JSR 

JSR 

JSR 

-JSR - 

JSR 

JSR 

JSR 

JSR 

JMP 


«ZRECT 

PUTMSQ 

SSQUAR 

FSTOT 

FLDOS 

SSQUAR 

FLDIT 

SFADD 

SSQRT 

FMOVE 

FSTOT 

FPOPO 

SFDIV 

SASIN 

FPUSHO 

FLDOT 

SRECIP 

SPOWER 


(DISPLAY "-> POLAR" 
; X*X 


' NEW X (TOS) 


AA4C 85 A4 
AA4E 4C 51 9D 



j Y 

; Y/R 

(THETA = NEW Y 
( LOAD NEW X 

;Y ROOT X = Y POWER 1/X 

( RPN 

;CHANGE STATUS LINE ON SCREEN 

(CLEAR STACKS (LPAD ONLY) 

(X-ONLY, NOTHING ON STACK 

(DISPLAY STACK 
^ROUND(X)-= TNT(X+. 5)- 


AA51 A2 6C 
AA53 AO DF 
—AA 55 - 20 - 9 8 - DD 

AA58 20 AA AB 
AA5B 4C 55 AS 

~AA5E- 

AA5E A9 01 
AA60 


LDX 

LDY 

--^JSR— 

JSR 

JMP 


#FHALF 

#FHALF/256 


SFADD 

SINTEG 


-SRSHF— 

SHFSUB 


AA62 

AA64 

- AA66 

AA68 

AA6A 

-TfliASe-- 


A5 D4 
10 OA 


85 D4 
A5 A8 
^ Oir- 


LDA 
BPL 
—AND- 

STA 
LDA 
FOR - 


AA6E I 
AA70 


- AA70 20 - D 2 -D9- 

AA73 08 
AA74 

- AAr77 
AA7A 
AA7B 

- AA7D - 


FRO 

SHF05 

FRO 

TO 

-- 

TO 

-FPi:- 


;Y SHF X (RIGHT OR LEFT) 
i 1=:>RIGHT, 0=> LEFT 


-rXCOr“TAKE ABSOLUTE VALUE AND SHIFT IN OPPOSITE DIRECTION“ 


20 B6 DD 
20-7E AO- 


PHP 

JSR 

“^SR— 


FMOVE 

-FPOPO- 


BO OF 
Fr5-El 


AA7F DO OB 


PLP 

BCS SHFIO 

-LDA--FRl+I— 

BNE SHFIO 


-rFP- —^-INT- - 

(FRl <- FRO 
;LOAD-r- 

iRELOAD CARRY FROM FPI 
iERROR => RETURN 0 

(SHIFT > 256 => RETURN 0 







































AA7F DO OB 


COLLEEN CALCULATOR, BY C SHAW 


% 

% 

% 

% 

r 

‘m I 


AA84 20 15 9E 
AA87 68 
-AA88-G5-A7^ 


LDA 

PHA 

JSR 

PLA 

CMP - 

BCC 


--UMP ■ 
TAX 


FRl 

FPBIN 


-BIT TNT— 
SHF 15 


AA9C 46 BD 
AA9E 66 BE 


BINARY+0 

BINARY+1 

-B-HMARY+2 


AAA7 4C A3 9C 
AAAA 

—AAAA—60_ 


JMP 

- RTS - 


AAAB 

AAAB 20 B6 DD 
AAA E -4G -Se-AB— 
AABl 

AABl 20 B1 A4 
A A J3 4 DO 1-B- 

AAB6 

AAB6 20 D7 A4 


USR 

JMP 

-r-END-If^ 


JSR 

-BNE- 


AABC AD 6B i 
AABF DO 10 


AAC3 FO 06 
AAC5 20 AO 9E 
—AA Ce 4C C E AAr - 
AACB 

AACB 20 5D 9E 
AAC E- 

AACE 4C 2E 9D 
A ADI 


JSR 

-JSR- 

LDA 

BNE 

-LDA— 

BEQ 

JSR 

-JMP- — 


FMOVE 

SFMUL- 

GETMN 
- SSTQ20 

MEMLDR 
FSTOR 
DMFLG 
SST020 
-DSPFLG 
SST012 
TOKNUM 
SST014 - 


FDSCOM 


-AA Dl - 60 - 

AAD2 

AAD2 20 E7 A4 

-AAD5 -20 B9 -AB— 

AADS 4C El AA 
AADB 

-AADB- 2 0 -E-7^A4— 

AADE 20 AA AB 


JSR 

JS2- 

JMP 


MEMSUB 

-SFSUB-- 

SSUMIO 


;SHIFT > 256 => RETURN 0 


i LOAD LSB OF SHIFT 
I SAVE 


(RETURN 0 


iRIGHT . 
; LEFT 


;SINH(X) <- (EXPE(X) - EXPE(-X)) / 2 

-i-FRO -G~ E^PE C XlFRl -C—EXPE<—X-) - 

iEXPE(X) - EXPE<-X) 

;DIVIDE BY 2 AND RETURN 


;X SQUARED = X«X 

;MEM <- X 

terror 


DISPLAY MEMORY INHIBIT? 

YES. DON'T DISPLAY, EVEN IN MEM DISPLAY AREA 

DISPLAY INHIBIT? - 

NO. 

YES. NO DISPLAY, JUST CONVERT FP TO ASCII 


(DISPLAY NUMBER IN SCROLL AREA WITH '»**' 


iDISPLAY MEM IN MEMORY AREA ON SCREEN 


(MEM <- MEM-X 


pMEM-<—MEM+'X-'^ 

























































COLLEEN CALCULATOR, BY C SHAW 




AAEl 

-AAei-20-B6-AA- 

AAE4 4C 7E AO 
AAE7 

A AE7 2 Q-9€^-A0- 

AAEA 20 9B B3 
AAED 20 F9 AA 
-AiAFO-20~-AA-B3- 

AAF3 20 75 AO 
AAF6 4C 9B AB 








AA F9- 

AAF9 20 B6 DD 
AAFC 20 7E AO 
AAF F 4 C AA A Q - 

AB02 

AB02 20 E7 A4 


AB08 20 60 AO 
ABOB 20 F9 AA 


ABIO 20 47 9D 
AB13 BO 15 


SSUMIO 

-JSR^ SSTOlO- 

JMP FPOPO iRELOAD X VALUE 

STAN iTAN(X) = SIN(X)/COS<X) 

USR SCOS 

JSR SXCHGY 

-USR-SSiN- - 

JSR FPOP1 

JMP SFDIV 


STANH ;TANH(X) <- SINH(X)/COSH(X) 

JSR FPUSHO 


JSR SXCHOY 

JSR SSINH 

-JSR-FFOP-t- 

JMP SFDIV 

. ENDIF 


JSR FMOVE iFRO <-> TOS 

JSR FPOPO 

-JMP-FPWSHt- 

SXCHM 

JSR MEMSUB jX <==> MEM (MEMSUB PUSHES FRO) 

-JSR-MEMLBR-i MEM <—X - 

JSR FSTIR 

JSR SXCHOY ; EXCHANGE NEW X FOR OLD ON STACK 


JSR DSPM3 ; DISPLAY X IN MEM REG AREA 

BCS SXIO ;IF MEMNUM < 10 


AB18 20 89 DD 
ABIB A5 CA , 

AD ID 4 8- 

ABIE A9 00 
AB20 85 CA 
A B22 A 9 1 - 6 - 

AB24 20 92 9E 
AB27 68 


JSR FLDOR 

LDA DSPFLG 


LDA #0 

STA DSPFLG 


JSR FDSPl 

PLA 


AB2A 

AB2A 4C 7E AO 


AB2D A9 02 
AB2F 

AB2F 85 A S- 

AB31 20 15 9E 
AB34 A2 03 
-AB36- 

AD36 B5 DD 
AB38 95 Cl 
AB3A -eA- 

AB3B 10 F9 
AB3D 20 7E AO 
-AB40-2Q-1-5-9E- 

AB43 A4 AB 
AB45 A2 03 


SXIO 

-SXOR— 

DOLOP 


-LOPtPir 


JMP 


LDA 

-5TA- 

JSR 

LDX 


LDA 

STA 

-DEX- 

BPL 

JSR 

^SR- 

LDY 

LDX 


FPOPO 

#2 

-TO-- 

FPBIN 

#3 

BINARY,X 
BIN2, X 


LOPLPl 
FPOPO 
- FPfil-N-- 
TO 
#3 


;RESTORE 


; X <- Y XOR X 
i X <- Y LOP X 0=>AND, 


1=>DR. 


2=>XaR 


AB47 D5 BD 


LO PI r Pg- 


LDA 


BINARY,X 












































COLLEEN CALCULATOR, BY C SHAW 


u 




AB49 CO 00 
-AB4^B-B0-05- 

AB4D 35 Cl 
AB4F 4C 5D AB 
-AB32 - 

AB52 CO 01 
AB54 DO 05 
AB56 15 Cl - 

AB58 4C 5D AB 
AB5B 

-Afi^B-55-C-l- - 


CPY 

-BNE- 

AND 

JMP 


#0 

-tePl-0-— 

BIN2,X 
LOP 30 


CPY 

BNE 


AB5D 

AB5D 95 BD 

-AB§F-eA- 

AB60 10 E5 
AB62 4C A3 9C 

-ABiSS- 

AB65 60 
AB66 


L0P30 


-0RA- 


STA 

-BEX- 

BPL 

JMP 


#1 

L0P20 
-H31N2r-X— 
LOP 30 

B.TN2, X- 

BINARY,X 

L0PLP2 

BINFP 


RTS 


AB66 A5 9D 
AB68 DO OB 
-AB6 A 20 EG AG - 

AB6D BO 13 
AB6F 20 75 AB 
-^ B72 4 G - C -3 AS 

AB75 


LDA PRNFLO 

BNE SXRIO 

- JSR-SON- 

BCS SXRTN 

JSR SXRIO 

-^MF-S0FF- 


-AB73-A5-&A - 

AB77 48 
AB78 A9 00 
-Afi-7A -85 C-A- 


AB7C 20 73 9E 
AB7F 68 

-ABBO- -85-eA—— 

AB82 
AB82 60 


-L-DA 
PHA 
LDA 
-STA-- 
JSR 
PLA 
-STA - 


T)SPFLO 

#0 

-DSPFL© 

FDSPO 


RTS 


PRINT-X REG^ 
{PRINTER ON? 

; YES. 

i NO.—TURN ON 
{ERROR 

{DISPLAY & PRINT 
,TURN-OFF- & RETURN 


DISPLAY ^ PRINT ScRETURN 
iALWAYS-PRINT 


{PRINT NUMBER 








































































COLLEEN CALCULATOR, BY C SHAW 


M 

% 

(0 

(0 

^ I 


ABS3 

INTMUL 



; FRO <- A«FRO 

j-CTDi ron. crorky* a 



ABS6 4C SC AB 
j ABS9 

SPMUL 

JMP 

— ^JSR 

SFMUL 

/ rr\i ^ nnUi rnv^ H 

L CO i y cor\ • ono v ncc oxAr-u tkixp r-nn 



ABSC 

ABSC 20 DB DA 

SFMUL 

JSR 

FMUL 

r r ri X pljp t tirr INr U rHXU - 

; X <- Y*X FRO <- FRO * FRl 



AB92 

AB92 20 A2 A2 

INTDIV 

JSR 

LDINT 

; COMPUTE A/FRO 



AB9S 

AB9S 20 7B AO 

SPDIV 

JSR 

FMVPOP 




1 AB9B 20 28 DB 

! AB9E 4C BC AB 

ABAl 

TM-TAnn 

JSR 

JMP 

FDIV 

CRYCHK 




ABAl 20 A2 A2 
ABA4 4C AA AB 
ABA7 

X iM 1 

SPADD 

JSR 

JMP 

LDINT 

SFADD 

j COMPUTE A+FRO 



ABA7 20 7B AO 
ABAA 

ADAA >-if\ AA nA 

SFADD 

JSR 

jQp- - 

FMVPOP 

iTAr%r\ 

j X Y+X 



nunn cv oo JL/n 

ABAD 4C BC AB 
ABBO 

Annr\ A'n 

INTSUB 

worc 

JMP 

rni/L/ 

CRYCHK 

• r*nMPi iTP A—ppn 



- nuuU —— ftic ftg: 

ABB3 4C B9 AB 
ABB6 

Ann/ '-in -rn An 

SPSUB 

JMP 

SFSUB 

p|u|^PQP 

rCl rn P r\\J . , . 



MUlJO C.C/ /o 

ABB9 

ABB9 20 60 DA 

SFSUB 

nm rni ii/ 

JSR 

FSUB 

;X <- Y-X 



- ABB€ - 

- CRYCHK” 






ABBC 90 09 . 

nn\/nkiT\ 

BCC 

CRYCLR 




—--ABB£- 

ABBE 20 9E A2 
ABCl A9 9B 

-ABC3 4C E5 9B- 

-CK YbNi7 — 

JSR 

LDA 

-J«P— 

PCLRO 

#CRYMSG 

-ER RSLH3 - . 

;CLEAR X 

;CARRY SET => ERROR 




ABC6 38 
ABC7 

-AB^THfrO^” 


CRYCLR 


SEC 


;INDICATE ERROR 


ABCS 

ABCA 

A9 01 

DO E4 

PNESUB 

LDA 

BNE 

#1 

INTSUB 

; FRO 
i JMP 

<- 1-FRO 

ABCC 

ABCF 

gO~08“Afi 

4C FE A6 

--SUB0N&- 

—JSR- 

JMP 

PNESUB- 

SCHOSG 


^—FR0“1 
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COLLEEN CALCULATOR. BY C SHAW 


r 


ABD2 

ABD2 A5 C6 


ABD5 E9 01 
ABD7 BO OC 


ABDB CA 
ABDC EO OC 


ABEO 4C 9D 9D 
ABE3 


-ABE3 86 C7 

ABES 

ABES SS C6 
-ABET^^AO-00^- 
ABE9 B1 C6 
ABEB C9 96 
-ABED-^^O- 
ABEF AS C6 
ABFl A6 C7 

ABF4 E9 07 
ABF6 BO OS 


ABF9 EO OC 
ABFB 90 09 


ABFD 48 
ABFE B1 C6 
A CQQ A8 - 

ACOl 68 
AC02 CO 96 
-AC^4^=0^05- 
AC 06 

AC06 A9 OD 


LDA 

SBC 

BCS 

-LBX- 


DEX 

CPX 

HBGS--- 


#PRGMEM/256 

-SBSTOS- 

EPERR 


LDA 

CMP 


LDA 

LDX 


SBC 

BCS 


(PC),Y 
ttNUMBER 
SBSTSO 


#FPREC+1 

SBST30 


BUBROUTINES FOR PRDGRAMJ1ABILITY 

iBACK STEP PC <- PC-1 


)AT BEGINNING OF PRGMEM? 
iYES. END OF PROGRAM MEM ERROR MSG AND RETURN 


iCHECK- FOR NUMBER 


r RETURN 

;NUMBER => SUBTRACT MORE 


CPX 

BCC 


#PRGMEM/256 

NERR 


PHA 

LDA 

-TAY- 

PLA 

CPY 

—BEG 

LDA 


#NUMBER 
—SBST4& 


#KEYMSG 
- CRRSUB 


iSAVE NEW PC 

iDOUBLE CHECK FOR # AT BEGINNING 


iRESTORE NEW PC 


;DISPLAY NOT VALID CMD ERROR MSG & RETURN 


ACOB 

ACOB 86 C7 
-AC0D-8-5-G6 ~ 


;SAVE NEW PC 































































iCLEAR PROGRAM MEMORY, PC <- PRGMEM 


iOPCODE FOR STOP => INIT ALL TO STOP 


;GOTO N = 0-1023 ( 000-3FF) 
fSAVE X- _ . 

iDISPLAY "ENTER PROGRAM MEM ADDRESS 0-1023" 
i-ALWAYS^ DEC IMAL 




'V‘.\ ■' 


1 TOO LARGE 


RESTORE DHOFLG 
NO ERROR 


RELOAD X 




LIST PROGRAM STARTING WITH PC 






































COLLEEN CALCULATOR, BY C SHAW 


AC96 

-A G96 50 -97—9B- 

AC99 BO 24 
AC9B 20 85 A3 
-Ae^9E-A B FO 05 h 

ACAl C9 00 
ACA3 FO 13 
- ACA5 A5 -&1- 

ACA7 C9 96 
ACA9 DO 06 


ACAE 4C B4 AC 
ACBl 


i ACB4 

[ ACB4 90 EO 

'-A &B 6 B 0-Q7- 

ACB8 

ACB8 EE FO 02 

-AOBB-A9 -80- 

ACBD 85 11 

ACBF 

‘-ia.OBF-6B- 

ACCO 85 CA 

ACC2 20 7E AO 

I- ACC5 2 0 73 - 9 E- 

I ACC8 60 


ACC9 

ACC9 A9 00 


ACCD 

ACCD A9 01 


ACCF 85 C9 
ACDl A6 C8 
A CD3 - F 0-04- 

ACD5 49 01 
ACD7 85 CA 

-AeD9- 

ACD9 60 


SLSTLP 


BCS SLSTIO 

JSR PUTCRP 

-bD A-^ RST-NH- 

CMP #$0 

BEQ BRKLST 


CMP #NUMBER 

BNE SLST05 

-^SR-POADDN - 

JMP SLST07 

SLST05 

-USR-powe-- - 

SLST07 

BCC SLSTLP 

-BOS--SbST-1-0 - 

BRKLST 

INC CRSINH 

--bOA-#^80— 

STA BRK.KEY 

SLSTIO 

-F»bA 

STA DSPFLG 

JSR FPOPO 

RTS 


SNOTRACE 

LDA #0 

-BEQ-STfHQ- 

STRACE 

LDA #1 

-STR^^D- - 

STA TRACE 

LDX PROG 

-BEQ- 5TR2Q — 

EOR #$01 

STA DSPFLG 

-S TR2G — 

RTS 


- ACDA SPAUSE 

ACDA A5 CA LDA DSPFLG 

- A C D C —48-——-FWi 

ACDD A9 00 LDA #0 

ACDF 85 CA STA DSPFLG 

—A CEl 20 51 9 D -^^SR-DSFSTK— 

ACE4 68 PLA 

ACE5 85 CA STA DSPFLG 


ACE7 A2 00 
ACE9 AO IE 


c 


ACED 8D 2A 02 
ACFO 20 5C E4 
ACFS 

ACF3 AD 2A 02 


LDX #0 

LDY #30 

---LDA-#3-- 

STA CDTMF3 

JSR SETVBV 

SPAULP 


LDA 


CDTMF3 


OK: CONTINUE 

END OF PROG MEM: STOP 


iTURN CURSOR OFF 


;RESTORE X 
iAND DISPLAY 


iTRACE OFF 


iTRACE ON 


iPROGRAM IN EXECUTION? 

-^NQt - 

iYES. TRACE DETERMINES DSPFLG 


- PAUSE-FOR -30 FRAMES-i-t/2 SEC7 

; MSB 

iLSB (IN FRAMES) 

;SET FLAG TO NON-ZERO 
;SET TIMER 


iWAIT FOR ZERO (TIME UP) 


















































COLLEEN CALCULATOR, BY C SHAW 



ACF6 DO FB 


BNE 

SPAULP 





ACF9 

ACF9 A9 01 

'-ACFB C5-C8- 

SPROGR 

LDA 

—OMP- 

ttSTOPRG 

)TO STORE PROGRAM MODE 




ACFD FO 09 
ACFF 85 C8 


BEQ 

STA 

SPRRTN 

PROG 

i YES. 
i NO. 




AD03 AO OB 

ADO5 20 A7 DD 
-ADOS- 

-SPRRTN- 

LDY 

USR 

#FPX/256 

FSTOR 



"n 

Vl'J 


ADOS 60 


RTS 





% 

1 AD09 A9 00 

1 ADOB 85 C6 

!-AD0B- A2 G€- 


LDA #0 

STA PC 

L mt -JtctDftMirivuoei 

;PC <- 0 


1 

J 


ADOF 86 C7 

ADll 60 


STX 

RTS 

PC+1 





AD12 20 09 AD 
AD15 

SRUN 

SCONTI 

JSR 

—LDA- 

SRESET 

;GOTO 0 AND RUN 

;CONTINUE=> RUN STARTING AT CURRENT PC 

M 



AD17 A6 C9 

AD19 FO 02 

-ADIB A9 00- 


LDX 

BEQ 

-L£)^ 

TRACE 

SRUNIO 

-1 DTSPLA Y OFF — - - - 

;TRACE? 

; NO. 


!"' 


ADID 

ADID 85 CA 

-ADIF A9 02- 

SRUNIO 

STA 

DSPFLG 

j-YES.--“DI-SPLAY ON — — -- 

7W^ 



AD21 85 CS 

AD23 60 


STA 

RTS 

PROG 





AD24 

AD24 

-AB24-A9^0- 

AD26 85 CA 
AD28 A5 C8 

- 

AD2C DO 07 
AD2E A2 5E 


SSTP 

SEND 


AD32 20 89 DD 
AD35 


STA 

LDA 

-CMP 

BNE 

LDX 

LDY- 

JSR 


-# 0 - 
DSPFLG 
PROG 
-ttS-TGPRG 
SEND10 
#FPX 

-#FPX/25^r - 
FLDOR 


/STOP PROGRAM EXECUTION 

;END OF PROGRAM (STOP PROGRAM EXECUTION) 
;DISPLAY ON 

i LEAVING STORE PROGRAM MODE? 

; NO. 

i YES. RELOAD FRO < X) 


AD37 85 CS 
AD39 

-- AD3 9 60 - 


-fcDiA- 


--# 0 -- 


- - —?BACK TO IMMEDIATE MODE 

;DO NOTHING 


c:_ 


AD3A 


AD3A 20 E7 A4 
AD3D 20 41 AO 

^ AD4O-20- B9 "AU- 

AD43 A5 D4 
AD45 48 

-AD4&S O - 7E - AO - 

AD49 68 
AD4A 18 

-AD4B-60- 


USR 
USR 
-USR— 

LDA FRO 

PHA 

-USR-FP01 

PLA 

CLC 


MEMSUB 

FLDIS 


;XLT R N => IF X < MEM(R) THEN GOTO N 
SUBROUTINE FOR CONDITIONAL BRANCH INSTRUCTIONS 
iWILL RETURN FROM XLTSUB IF ERROR, OTHERWISE 
; SAVES X ON STACK, GETS R, SETS UP X&Y. 

; FRO <- MEM<^R1 - X 
iLOAD & SAVE SIGN BYTE 


-j-REtOAO-X- 

;NO ERROR 


;IF X=MEM<R) THEN GOTO N 


COLLEEN CALCULATOR, BY C SHAW 




























































COLLEEN CALCULATOR, BY C SHAW 


AD4C 20 3A AD 
-AB4F-B0-a2- 

AD51 FO 2D 
AD53 DO ID 

- 

AD55 20 3A AD 
AD58 BO 29 
-A D5A FQ 2 4- 

AD5C 30 22 
AD5E 10 12 
-A D 6 0 - 

AD60 20 3A AD 
AD63 BO IE 
-AD65 FO OB - 

AD67 10 17 
AD69 30 07 

-AD6fi- 

AD6B 20 3A AD 
AD6E BO 13 
AD70 DO OE- 

AD72 

AD72 20 9C AO 
-A D7& A 9 0 0 - 

AD77 20 6A 9C 
AD7A 20 79 9A 
-AD7D-4G-7E-A0^ 

AD80 

AD80 4C 48 AC 
- A D e 3 6 0- 


JSR XLTSUB 

- BBS - XLTERR - 

BEQ MATCH 

BNE NOMAT 

SXGE - 

JSR XLTSUB 

BCS XLTERR 

-BeQ--MATCH- 

BMI MATCH 

BPL NOMAT 

^XbT-- - - - 

JSR XLTSUB 

BCS XLTERR 

- BEQ- -NQMAT- 

BPL MATCH 

BMI NOMAT 

-SXNE- - 

JSR XLTSUB 

BCS XLTERR 

-BWE- MATCH - 

NOMAT 

JSR FPUSHO 

--LBA-#PROMSG - 

JSR PUTMSG 

JSR LEX 

-JMP- F P QPO -- 

MATCH 

JMP SGOTO 

-X LTERR -RTS- 


j IF-X>«- METI(R ) ^HEN GOTO N-^ 


;MI => MEM(R) < X => X>MEM(R) 
i IF X<T1EM<R) THEN GOTO N 

;PL => MEM(R)>=--X => X<:=:MEM(R) 
;-IF XOMEM(RT THEN GOTO N 


CONDITION NOT SATISFIED 
SAVE X 

DISPLAY "ENTER PROG MEM tADR 0-1023" 

GET N AND IGNORE IT 

RESTORE X _ . 

CONDITION IS SATISFIED 

GOTO N 

ERROR MSG ALREADY DISPLAYED BY GETMN 




































COLLEEN CALCULATOR, BY C SHAW 


m AD84 

ADa4 18 

---AD85-AE—6E-OB 

POPCAL 

CLC 


RU^IIHE LHLL Ik KtIUKN 

i POP A OFF CALSTK 
iNO ERROR 

AD88 DO 05 
AD8A A9 D1 

BNE 

LDA 

POPCIO 

#CLEMSG 


^ AD8F 

AD8F CA 

PQPCIO 

DEX 


1 "CALL STACK EMPTY" ERROR 

^ AD93 BD SO OB 

AD96 60 

LDA 

RTS 

CALSTK,X 


AD97 

AD97 18 

-A&98 AE 6E QB- 

PSHCAL 

CLC 

- —LDX 


;SAVE A ON CALSTK 
,N0 ERROR 

AD9B 10 05 

AD9D A9 DB 

BPL 

LDA 

PSHClO 
ttCLFMSG 
-ERBSUB - 

CALSTK, X 

i 0-$7F IS OK 
; "CALL STACK FULL" ERROR 

ADA2 

ADA2 9D 80 OB 

—UMP- 

PSHCIO 

STA 

ADA6 8E 6E OB 
ADA9 60 

STX 

RTS 

CALPTR 


ADAA 

ADAA A6 C8 

-ADAC—DO-4-4- 

SCALL 

LDX 

-- -BNE- 

PROG 

;CALL N (0-1023) 

JIMMEDIATE MODE? 

ADAE A5 C7 

ADBO 09 80 

LDA 

ORA 

PC+1 

#$80 

;YES. PC TO BE RESTORED ON RETURN 
iSET MSBIT TO INDICATE RETURN TO IMMEDIATE MODE 

ADB5 A5 C6~^ 
ADB7 20 97 AD 
-ADBA-BO^-26- 

LDA 

JSR 

PC 

PSHCAL 

- - 


ADBC 20 48 AC 
ADBF 4C 15 AD 
-ADe2- 

JSR 

JMP 

3^ ALvTw 

SGOTO 

SCONTI 

TSTACK FULL ERROR 
;GOTO N 

iRUN SUBROUTINE (CONTINUE) 

ADC2 A5 C6 

ADC4 A6 C7 
-ADOA _ tS 

LDA 

LDX 

PC 

PC+1 

;EXEC MODE 

ADC7 69 08 

ADC9 90 01 

ADC 

BCC 

#FPREC+2 

SCAL20 

;SKIP PAST N 
iTO GET RETURN ADDRESS. 

1 ADCC 

' ADCC 48 

1 ADCD 0*1 

SCAL20 

PHA 



ADCE 20 97 AD 
ADDl 68 

JSR 

PLA 

PSHCAL 

! PC + 1 

ADDS BO OB 

ADD7 20 48 AC 

U3R 

BCS 

JSR 

PSmCAL 

scALSO 

SGOTO 

; PC— 

/STACK FULL ERROR => DON'T GO 

ADDA 90 06 

- — 

- SCAtSO - 


ADDC 20 84 AD 

USR 

POPCAL 

;ERROR => THROW AWAY RETURN ADDR FROM STACK 

ADDF 20 84 AD 

JSR 

POPCAL 

i & KEEP OLD PC 

■■ADE2 60- 

-30At30- RTS — 






, RETURN —POP—PC OF'P” STACK/ GOTO PC“ 

ADE3 20 84 AD 

JSR 

POPCAL 

: PC 

ADE6 DO 12 

BCS 

SRET20 

;ERROR - STACK EMPTY 


COLLEEN CALCULATOR, BY C SHAW 
























































COLLEEN CALCULATOR, BY C SHAW 


ADE8 85 C6 
ADEA-2a 84 AD 
ADED BO OB 
ADEF 10 07 


ADF3 85 C7 
ADF5 4C 24 AD 
--ADF8- 


STA 

-USR- 

BGS 

BPL 


STA 

JMP 


ADF8 85 C7 
ADFA 
AD FA 60 


SRET20 


PC 

-FePCAb- 

SRET20 

SRETIO 


PC+1 

SSTP 


m 


PC+1^- - 

STACK EMPTY => DON'T EXECUTE RETURN 

H=»C+4-4MSB > -<0 - => TJETURN-TO IMMEDIATE MODE 


PC+1 >0 -> STAY IN EXEC MODE 















































COLLEEN CALCULATOR, BY C SHAW 




INSERT & DELETE 


jDELETE - FOR I=PC TO 1022+PR0MEM:MEM<I)<-MEM(I + l); NEXT I 
MEM(1023+PRGMEM)<-STP 


ADFB A 5 G 6-- 


ADFD 85 95 
ADFF A5 C7 
AEQl 8&-9A- 

AE03 AO 01 
AE05 B1 95 

A E07 -88- 

AE08 91 95 
AEOA E6 95 
AEOG - DO F5 - 
AEOE E6 96 
AEIO A5 96 
A E13 C9 -Ir Q — 

AE14 DO ED 


STA 

LDA 

-STA- 

SDELPl LDY 
LDA 

-- 


JMPTRl 

PC+1 


#1 

(JMPTRl), Y 


STA 

INC 

- BNE - 


(JMPTRl),Y 
JMPTRl 
-SDEtFl- 

INC JMPTRl+1 

LDA JMPTRl+i 

_G-Mp -#pC_l|y|A^l 

BNE SDELPl 


f-MOVE PC -TO TEMP PTR 

;MEM(I+l) 

;MEM(I) 
iCONTINUE 


;AT END OF MEM? 
:NO. CONTINUE 


A E1 6 A9 78- 


- LD A- 


AE18 8D FF OF 
AEIB 60 


STA 

RTS 


-#STP - 
PRGMEM+PROLEN-1 


iDONE -STORE "STOP" 


AEIC A9 FE 
AEIE 85 95 
A E20 A9-QF 

AE22 85 96 
AE24 


LDA 

STA 


; INSERT - FOR I = 1022+PRGMEM TO PC: MEM(I + l)<-MEM(I):NEXT I 

-MEWPC^X—STP- - - 

#^FE JMPTR1<-ADDR(END OF PRGMEM-l) 

JMPTRl 

--#P^MA)(- 


AE26 B1 95 
AE28 C8 
A E29 91 9 3~ 

AE2B C6 95 
AE2D A6 95 


-LD¥- 

LDA 
I NY 
-STA 
DEC 
LDX 


TjMPTRI), Y 

(JMPTRH , Y - 
JMPTRl 
JMPTR1 


;MEM(I) 

jMEM(H-I) 



1-AfceH-to- hi- 

AE31 DO 02 
AE33 C6 96 

- 

BNE 

DEC 

INSIO 

JMPTRl+1 




-AE35- 

AE35 A4 96 
AE37 C4 C7 

-H^JSTO- 

LDY 

CPY 

JMPTR1+1 

PC+1 

—TNS30- 

SINSLP 

PC 

-SfNStP-^- 

;JMPTR1<PC => STOP 
iJMPTRl>PC => CONTINUE 
;JMPTRl+1 = PC+1 
-r JMPTFl” PC - => CONT TNUE 


‘1 

-AE39 90 06- 

AE313 DO E7 
AE3D E4 C6 

-AE3F pa E3- 

QCC 

BNE 

CPX 



AE41 

AE41 

--AE43- 

AE45 

AE47 


AO 00 
tA9-7S- 

91 C6 
60 


LDY 

-tDA- 

STA 

RTS 


#0 

-#STP- 


iDONE MEM(PC) <- STP 
























































COLLEEN CALCULATOR, BY C SHAW 


OPEN & CLOSE 


AE48 

AE4a A2 30 


FCLOSE 

LDX 

#TIOCB 

;CLOSE TIOCB 

AE4C 9D 42 
AE4F DO 5A 

03 


STA 

BNE 

ICCOM,X 

CIOCAL 

iJMP TO CIO CALL 

1 AE51 A9 04 

! AE53 DO 02 


□PNIN 

LDA 

BNE 

#INPUT 

FOPEN 

iOPEN FILE FOR INPUT 
i JMP 

AE57 48 
AE58 A5 C8 


FOPEN 

PHA 

LDA 

PROG 

jOPEN FINE FOR OUTPUT- 

;OPEN FILE FOR INPUT/OUTPUT (ACCORDING TO A) 

AE5C A9 OD 
AE5E 4C E5 

9B 


LDA 

JMP 

ttKEYMSG 

ERRSUB 

;EXEC MODE => NOT VALID COMMAND 

AE61 A9 51 
AE63 AO B9 



LDA 

LDY 

#FSPMSG 

#FSPMSG/256 

;"ENTER FILE SPEC (NO QUOTES)" MESSAGE 

1 AE68 

AE68 20 62 

AE6E C9 20 
AE70 FO F9 
E6 82 

9A 

FOPLPl 

JSR 

CMP 

BEQ 

LXINIT 

#' 

F0PLP3 

■rni/ m-rn 

;SET UP CURSOR, DISPLAY 

iREMOVE-LEADING- SEPARATORS _ - - - 

AE74 

AE74 20 EB 

AO 

F0PLP2 

USR 

-1 UIM^ 1 n- 

GTCHR 

-i SAVE FIRST CHAR- - 

AE79 FO 14 
AE7B C9 9C 



BEQ 

CMP 

F0P30 

#DELLIN 

i DONE 

I AE7F A6 82 

AE81 EO 10 



LDX 

CPX 

TOKPTR 

#NUMLEN 

i TR Y' AG A IN —- 

AES5 68 

AES6 A9 82 



PLA 

LDA 

#DIGMSG 

iPOP INPUT/OUTPUT INDICATOR 
;"TOO MANY CHARS" ERROR MESSAGE 

AE8B 

AE8B E6 82 
__AE8D_DO E5_ 


FOP 20 

INC 

-ERRSUB- 

TOKPTR 

FQPtP2 

iSAVE CHAR 
;JMP (CONTINUE) 

AESF 

AE8F A9 9B 


FOP 30 

LDA 

#CR 

;NOW HAVE FILESPEC STRING IN TOKBUF 


AE93 9D 00 05 STA TDK.BUF, X ; PUT CR AT END OF STRING 

AE96 A2 30 LDX #TIOCB i TEMPORARY lOCB # 

-AE98-A9~03- tDA-#OPEN- 

AE9A 9D 42 03 STA ICCOM,X 

AE9D A9 00 LDA ttTOKBUF 

- AE 9 F 9 D -44^-Q3--ST=A-I^DAt,*- 

AEA2 A9 05 LDA #T0KBUF/256 

AEA4 9D 45 03 STA ICBAH,X 

— AEA7 6 8--j TNPUT~QR OUTfOT 

AEAS 9D 4A 03 STA ICAX1,X 

AEAB CIOCAL iCALL CIO AND CHECK FOR ERROR 

-AEAB-S^-56 E4-USR-CI-QU- 

CPY #SUCCES 

BNE lOERR 

-etc- 


AEAE CO 01 
AEBO DO 02 
AEB2 - 


;ERROR 
- rNB - - E RfteR- 














































COLLEEN CALCULATOR, BY C SHAW 




AEB5 48 
AEB6 20 13 9C 

- AEB9-20-93-A3- 

AEBC 20 9C AO 
AEBF 68 

AEGO - 8 5 -D4- 

AEC2 A9 00 
AEC4 85 D5 
AEC6 20 AA D9 

AEC9 20 E6 DS 
AECC AO FF 
A ECE G 8 — 

AECF B1 F3 
AEDl 10 FB 
AED3 29 7F - 

AED5 91 F3 
AED7 C8 

A ED 8 9 B- 

AED9 AA 
AEDA A5 F3 

-AEDG-A4^^4- 

AEDE 20 BA A3 
AEEl 20 7E AO 
-iA EE 4 3 8- 


PHA 
USR 
- ^SR— 
JSR 
PLA 


JSR 

LDY 


LDA 

BPL 


STA 
I NY 


FRO+i 

-IFP-- 

FASC 
#*FF 

(INBUFF), 

lOELP 

(INBUFF), 


TAX 

LDA 

- --LDY- 

JSR 

JSR 


INBUFF 

-^BUFF+T 

PTTXTP 

FPOPO 


MSAV20 RTS 


AEE6 20 51 AE 
AEE9 BO FA 


JSR 

BGS 


OPNIN 
MSAV20 
-#©ETeHR ~ 


AEED DO 07 


AEEF 20 55 AE 
AEF2 BO FI 


JSR 

BGS 


AEF6 

AEF6 A2 30 




OPNOUT 

MSAV20 

-»P UTCHR - 


AEFB A9 00 
AEFD 9D 44 03 


LDA 

STA 


AFOO - A 9 - 0e- 

AF02 9D 45 03 
AF05 A9 00 
—AF07-9D-4e 03- - 
AFOA A9 04 
AFOC 9D 49 03 
AFOF DO 2 9- 


-tOA- 

STA 

LDA 

-STA- 

LDA 

STA 

BNE 


#TIOCB 

—I^CSMr^- 

#PR(3MEM 
ICBAL,X 
# P R(? MEht / g56- 

ICBAH,X 
#PRGLEN 

- -te-Bt±.rX- 

#PRGLEN/256 
ICBLH,X 
N SAV1 5- 


AFll 

-AFirl^-SO-Si.—AE-- 

AF14 BO CF 
AF16 A9 07 


-JSR- 

BCS 

LDA 


-OPNttl- 

MSAV20 
#GETCHR 
- MSAVlrO- 


<ERROR #> 


iDISPLAY "ERROR - 
iY=ERR0R # 

; SAVE 

;DISPLAY "ERROR - ", DO OTHER STUFF 
iSAVE X 

iCONVERT ERROR # TO FP TO ASCII (0-255) 


; FIND END OF TEXT 

;REMOVE END OF TEXT INDICATOR- 


;NUMBER OF CHARS 


DISPLAY & PRINT WITH <:RETURN> 
RELOAD X 

ERROR- - 


^ L-OAD-PROGRAM MEM FROM SPECIFIED FILE- 

iERROR IF CRY SET 
! JMP 

i SAVE PROGRAM MEM IlM FILE 


; (J M P) CALL CIO gr-CtrOSE 


iLOAD MEM FROM FILE 
i OPEN-F-ItE FOR “I NPUT 





















































COLLEEN CALCULATOR. BY C SHAW 


APIA 

-AF4^- 


AFIF 

AF21 

AF23 


20 

A9 

A2 


55 

OB 

30 

-42- 


AE 


JSR 

-BGS- 


OPNOUT 

MSAV20- 


iOPEN FILE FOR OUTPUT 
-j-ERROR — RETURN - 


^3- 


AF26 
AF28 
- AF2B 


A9 00 
9D 44 
^V9-08- 


03 


AF2D 

AF30 

AF32 

AF35 

AF37 

-AF3A- 


9D 

A9 

^90- 

A9 

9D 

30 


45 03 
58 

^-03- 


02 

49 

AB- 


03 

AE- 


AF3D 4C 48 AE 


MSAVIO 


LDA 

LDX 

STA 


LDA 

STA 

- LDA 

STA 

LDA 

-STA- 


- KS AV15 


LDA 

STA 

JSR 

JMP 


#PUTCHR 

tTIOCB 

-lOOQMi X - 

#MEMORY 
ICBAL.X 

- #riEMQRY /2^- 

ICBAH,X 
#riEMLEN»FPREC 

- TC-BLL . X- 

#MEMLEN*FPREC/256 
ICBLH.X 


-OI-OCAL- 

FCLOSE 


-T-CALL-CTa-ANO CHECK FOR ERROR 
;CLOSE FILE 































COLLEEN CALCULATOR, BY C SHAW 



AF40 

AF40 A2 42 
--AF42-D0—lA— 

SMETER 

LDX 

#0«-FPREC+LENGTH 

i LOAD LSB OF ADDR OF CONVERSION CONSTANT 


AF44 

AF44 A2 48 

SINCHE 

LDX 

#1-»FPREC+LENGTH 



AF4S 

I AF48 A2 4E 

'-AF-4A—DG~T2— 

SFEET 

LDX 

#2*FPREC+LENGTH 



AF4C A2 54 
AF4E DO OE 

1-AF5Q A>2 5A— 

SYARDS LDX 
BNE 

-SmLES—LGX - 

#3*FPREC+LENGTH 

LENG 

-#4*FPR£C+LENG-T-H 

LENG 

#5*FPREC+LENGTH 


% 

1 AF52 DO OA 

1 AF54 A2 60 

1-AF56 DO Q6— 

BNE 

SCM LDX 


<0 

AF58 A2 66 
AF5A DO 02 
-AF5G A2 6C 

SKM LDX 

BNE 

-SNAUT-I—LDX— 

#6-»FPREC+LENGTH 

LENG 



AF5E 

AF5E A9 E5 
-AF60-D0 2G- 

LENG 

LDA 

#ZM 

GONVRT- - 

;LSB OF MESSAGE ADDR 

<0 

AF62 

-AF62 A2 42- 

SKG 


1 UMP- 

(0 

AF64 DO OA 
AF66 A2 72 

1-AF68 DO—06- 

BNE 

SOZ LDX 

MAS 

#0*FPREC+MASS 

; CONSTANT 4 (NO CONVERSION) 
i JMP 

<0 

AF6A 

AF6A A2 78 

SLB 

SPOUND LDX 

#1*FPREC+MASS 



AF6E 

AF6E A2 7E . 

SGM 

SGRAMS LDX 

#2*FPREC+MASS 



AF70 A9 E9 
AF72 DO lA 

LDA 

BNE 

#ZKG 

CONORT 

! JMP 


AF74 A2 42 
AF76 DO 06 

SFLDZ LDX 

BNE 

#LENGTH 

VOL 




STSP LDX 

BNE 

f-‘Tr»r'r» i t\v 

#0»FPREC+V0LUME 

VOL 

>y> 1 ^CTDDCr^^UDl 4 iMcr 




O 1 OOr ttTTT 

BNE 

SCUPS LDX 

w 1 r n n.w^ViJi-vntL 

VOL 

#2#FPREC+V0LUME 


<0 


SQUART LDX 
BNE 

#3*FPREC+V0LUME 

VOL 







AF78 A2 84 
AF7A DO 02 
-TfliF- 7 C A2 - 8A- 

AF7E 

AF7E A9 FO 
AF80 -DO-Oe - 
AF82 A2 42 
AF84 DO 06 
AFa6 A2 9 0 - 


-Stl-T^R- 
VOL 


LDX 

BNE 

-Li^ 

LDA 

-iBNE— 

LDX 

BNE 

LDX 


#0*FPREC+V0LUME 

VOL 


#ZFL 

-eONVRT’- “ 

ftLENGTH 

CDGR 

-itO^^Ff»f^Ee^+i^EGREe- 




















































> 


COLLEEN CALCULATOR, BY C SHAW 


L 


AF8C A9 FS 


AF8E 

AF8E A4 D2 
AF9Q DO ID 


LDY 

B NE- 


CONFLG 

-eO NVlQ - 


AF92 85 D2 
AF9 4 A O - 

AF96 20 98 DD 
AF99 20 8C AB 


AF9C BO 24 - 

AF9E A9 6F 
AFAO 20 6A 9C 
-AF A9 -AB-B2- 

AFA5 AO B8 
AFA7 20 6C 9C 
-AFAA-iA9-^B 
AFAC 4C 6A 9C 


STA 

-tDY- 

JSR 

JSR 


LDA 

JSR 


LDY 

JSR 

-bDA- 


CONFLG 

-#bENGTH7^56- 

FLDIR 

SFMUL 

-eONVRN- 

#CN1MSG 

PUTMSG 

- CQNF LQ- 

#ZM/256 
PTMSG2 
-4*eN2MSG- 


AFAF C5 D2 
AFBl DO 10 
-AFB0-AO-B6- 

AFB5 20 98 DD 
AFB8 20 9B AB 

AFBB BO 05 - 

AFBD A9 86 
AFBF 20 6A 9C 
-AFe2-- 

AFC2 60 
AFC3 

- AFC3 A 9 C9 - 


AFC5 4C E5 9B 


CMP 

BNE 


JSR 

JSR 


LDA 

JSR 


CONFLG 

CONERR 

«LENGTH/'2&6 

FLDIR 

SFDIV 

-CQNVRN- - 

#CN3MSG 

PUTMSG 






;DEGREES MSG 


;CONVERT TO DIFFERENT UNITS 
;FLAG SET? 


iNO. SAVE MSG ADDR LSB DO INTERMEDIATE CONVERSION 
^OAD CONVERSION CONSTANT - - 

;AND MULTIPLY. 

;OVERFLOW ERROR 

iDISPLAY "INTERMEDIATE UNITS" MESSAGE 

.DISPLAY NEW UNITS -- 

iLOAD PAGE # 

i DISPLAY 'CENTER NEW UNITS" - 


1 CONVERT FROM INTERMEDIATE UNITS T&T’INAL-UNITS 
iFLAGS MATCH? 

;N0. ERROR - CAN'T MIX TYPES 

;YES. LOAD CONVERSION CONSTANT - 

;AND DIVIDE. 

-rOVERFLQW- - - 

iDISPLAY "CONVERSION COMPLETE" 


;DISPLAY "UNIT MISMATCH" ERROR MESSAGE & RETURN 
















































COLLEEN CALCULATOR, BY C SHAW 



AFCS 

AFCS A9 04 
-AFCA-DO-1^ 


AFCC A9 05 
AFCE DO OE 
AFDQ -iW-06- 


AFD2 DO OA 
AFD4 A9 07 
-AFD 6 DO 06 - 


LDBAL 


LDA 

-B NE 


LDFV 


LDA 

BNE 


~ LDl 


LDN 


HdDA- 

BNE 

LDA 


LDA 

BNE 


#4 

-H EHLO B- 

#5 

MEMLOD 

MEMLOD 

#7 


MEMLOD 

#8 

MEMLOD 

-#9- 






AFDS A9 OS 
AFDA DO 02 
AFDC A9 0 9- 


AFDE 

AFDE 85 AF 
- AFEQ 20 D7 A4 

AFE3 4C 89 DD 


LDPMT 


-fcdOPV-- 

MEMLOD 


-L D A 

STA 

- ^SR 

JMP 


MEMNUM 

-MEMLDR 

FLDOR 




COMPOUND INTEREST SUBROUT^^^^ 

i FRO<->BAL 

-;UMP 

;FROC-FV 

i FROO I 

iFRO<~N 

i FROOPMT 


i FRO<*~PV 
iFRO<-MEM<A) 































COLLEEN CALCULATOR, BY C SHAW 







irnm 

SUBROUTINES 

AFE9 

A9 

01 


-Z 1 PbrI 

\7on 

LDA 

- — LOT—-- 

#1 

AFEB 

4C 

A1 

AB 


JMP 

INTADD 

-AFEE- 

■20 

-E6 


■7 4 T KM 

ICD 


AFFl 

20 

9C 

AO 

X 1 liN i- 

JSR 

-Z-i-Ptri- 

FPUSHO 

AFF4 

1—- pipp7 

20 

-20- 

D4 

AF 


JSR 

LDN 

1 AFFA 

4C 

76 

A9 


—USR 

JMP 

EUBONE 

SPOWER 

AFFD 

20 

E6 

AF 

ZlIN 

JSR 

ZIPLI 

1 - 







BOOS 

20 

D4 

AF 


-sJbR— 

JSR 

-FPUSHO 

LDN 

B006 

'--B0OE 

4C 

76 

A9 

. 7 1 T MKI 

JMP 

SPOWER 

1 BOOC 

4C 

OS 

AA 

JC-lrirniN- 

—JSR — 
JMP 

-ZLIN 

SRECIP 

1 BOOF 

20 

FD 

AF 

ZlINMl 

JSR 

ZlIN 


-40 

-OC- 

_ 









tWIP- 

-SUBONE- 

B015 

20 

OF 

BO 

ZIINII 

JSR 

ZlINMl 

B018 

20 

9C 

AO 

DIVI 

JSR 

FPUSHO 

1 — B^TB- 

20 

-nrv—AC _ 




1 BOIE 

4C 

98 

AB 


woK 

JMP 

-LBt- 

SPDIV 

B021 

20 

E6 

AF 

ZLNII 

JSR 

ZIPLI 

1 - - BQ54 

A/? 

-TP- 

AH 




B027 

*T\J 

20 

Aw 

09 

Hui 

BO 

ZllIMN 

JSR 

-ELN- — 

ZIIMN 

B02A 

4C 

C8 

AB 


JMP 

ONESUB 


'TT 

n/% 

-y 4 4 T hi T 

ir»rv 

ZILITIN- 



e. / 

— 

-aHL jt iNl 

voK — 

B030 

4C 

18 

BO 


JMP 

DIVI 

BOSS 

BmA 

AD 

67 

OB 

ZMULII 

LDA 

DUEFLG 

17 wOO 






#1- 

BOSS 

DO 

09 



BNE 

ZMRTN 

BOS A 

P- - B^SB- 

20 

9C 

AO 

A r- 


JSR 

FPUSHO 






JSR 

ZIPLI - 

B040 

4C 

89 

AB 


JMP 

SPMUL 

B04S 

60 



ZMRTN 

RTS 



TO COMPUTE PARTS OF COMPOUND INT. EQUATIONS 
jCOMPUTE-<1+1) 

i COMPUTE (1+I)'''(N~1) 
iSAVE (l+I) 

j N-1 

; COMPUTE (l + D'-N 

i fl + D^-N = l/< <1+I)^N) 

; ((1 + I)-^N)-1 

; ( <1 + I)^'N-1)/I 
iFRO <:- FRO/1 

iLN(l+I) 

; 1-(1 + I )^'-N 

t-<l-<l+IT^-N>/I - 

;IF ANNUITY DUE THEN FRO <- FRO * (l+I) 







































COLLEEN CALCULATOR, BY C SHAW 


B044 A9 00 
B046 H=0-02 
B04S A9 01 
B04A 8D 68 OB 
--&04&-60--- 

B04E A9 00 
B050 FO 02 
-B 0 52 A 9 OT- 

B054 8D 67 OB 
B057 60 

-B058- A9 02 - 

B05A DO F8 
B05C A9 03 

- BOSE DO F 4- 

B060 A9 00 
B062 FO 02 
-B0 64 A9 01 - 

B066 8D 69 OB 
B069 60 


SANNUI LDA #0 

--B£Q—-— 

SCMPND LDA #1 

SCMPIO STA ANNFLO 

- mB - — . . . 

SFVDUE LDA #0 

BEQ SORDID 

- SFVORB —LDA-- 

SORDID STA DUEFLG 

RTS 

^F UBUE -LDA-#2—- 

BNE SORDID 

SPVORD LDA #3 

-BNE- SGRDIO - 

SENTER LDA #0 

BEQ SFNDIO 

^^HMD-LDA--#lr-- 

SFNDIO STA ENTFLG 

RTS 


ANNUITY 

JMP- 

COMPOUND INTEREST 


iANNUITY DUE (PAY AT BEGINNING OF PERIOD 
; E. G. SAVINGS ACCT. ) 

i ORDI NARY- ANNUI TV T P AY AT END T}FH= ER TOD- 

i E. G. LOAN 


i-ANNlHTY HDUE/PV- 


iORDINARY ANNUITY/PV 


iENTER VALUE 


^FTND-VALUE, GIVER OTHER VARIABLES 



























































J 


COLLEEN CALCULATOR, BY C SHAW 





B06A 

SEAL 



BAl. = BALLOON PAYMENT 


B06D DO OC 
j B06F 

SBAL05 

BNE 

SBALIO 

ENTER VALUE 

1 # 

B071 

B071 85 AF 

MEMSTD 

STA 

MEMNUM 

.[“TV f-i / r\r oai a\/t Kin nni I ad liAi I icr s _ —. . . 


B075 20 23 AS 
B078 4C B6 AA 


JSR 

JMP 

SFIX2 

SSTOlO 

&■ V L; i antfn Y X NW L/wL-L-HiT vrtUV/C./ 

i STORE REG DISPLAY 


B07B AD 68 OB 
B07E FO 05 


LDA 

BEQ 

ANNFLG 

SBAL20 

iFT ND VALUE 

' # 

B080 A9 OD 

B0S2 4C E5 9B 


LDA 

JMP 

#KEYMSG 

ERRSUB 

iNO BAL PAYMENT IF COMPOUNT INTEREST 


BOSS AD 67 OB 
BOSS 29 02 


LDA 

AND 

DUEFLG 

#2 




'} 


ANNUITY DUE: 

;NO BAL IF FV 

BAL = (PV - PMT*(1-(1 + I)-"—N)/I)/(l + I)^-N 

BAL = (PV - PMT«(1 + I)*<1~(1 + I)^-N)/I)/(1 + I)''-N 


BOSF 20 33 BO 
B092 20 9C AO 


JSR 

JSR 

ZMULII 

FPUSHO 

,-FRO <- PMT 

;IF ANNUITY DUE THEN FRO <- FRO * (1+1) 


B09S 20 89 AB 
B09B 20 B6 DD 


JSR 

JSR 

SPMUL 

FMOVE 

i ( 1 —( 1+1 ) N Jt^I 


BOAl 20 B9 AB 
B0A4 20 9C AO 


JSR 

JSR 

SFSUB 

FPUSHO 

5 


BOAA 20 98 AB 
BOAD 4C 6F BO 


JSR 

JMP 

SPDIV 

SBAL05 

iSTORE NEW BAL 


BOBO 

SFV 



iFV = FUTURE VALUE 


B0B3 DO 05 

BOBS A9 05 

SFV05 

BNE 

LDA 

SFV 10 
#5 



BOBA 

BOBA AD 68 OB 
o^p-FV-' gA rua 

SFV 10 

LDA 

^MEMSTO ■ 

ANNFLG 

i FIND 


uuou r u UJ13 

BOBF 20 FD AF 


JSR 

SFV20 

( 

ZlIN 

COMPOUND INTEREST FV=PV#(l + I)•'••N 
(l + D'^N 


D0C2 Ai9 09 

B0C4 20 FE A4 
B0C7 4C B5 BO 


JSR 

JMP 

MEMMUL 

SFV05 

FRO <- FRO * MEM(A) 

STORE NEW FV 


BOCA 20 15 BO 
- B0eO-A9-08 - 

' 

JSR 

-tDA- 

ZIINII 

-#8-- -1 

ORDINARY ANNUITY FV=PMT*( ( l + I l-^N-l ) /I ^ ~ - 

ANNUITY DUE FV=ABOVE * (l+I) 

( ( l + I )-^N-l )/I 

rPMT- - - - -- - ' ' - - --- i 


BOCF 20 FE A4 USR MEMMUL 

B0D2 20 33 BO JSR ZMULII ; IF ANNUITY DUE THEN FRO <- FRO * (l + I) 




-BO&5 4e-B5-iB0-—-UMP- -SFV05-rSTORE NEW” FU” 

B0D8 SI iENTERED I = INTEREST IN PERCENT 

B0D 8 AD 6 y- e B-bDA- ENTFbG - 

BODB DO 21 BNE SI 10 








































COLLEEN CALCULATOR, BY C SHAW 


M 

# 

# i?r 


BODD 20 9C AO 

-B©E0-A9-64- 

B0E2 20 A7 A2 
B0E5 20 98 AB 


JSR 

JSR 


PSETO 

SPDIV 


i CONVERT INTEREST IN PERCENT TO FRACTIONAL VALUE 
( BY^^IVIDING BY 100. - - 


BOEA 20 23 A8 
BOED A9 06 

BOEF Q5 -iAF- 

BOFl 20 B6 AA 
B0F4 A9 64 • 


JSR 

LDA 


i-FIT^-9-F8R F/-i0G-- 


B0F9 A9 04 
BOFB 4C 23 A8 
- BQFE - 


JSR 
LDA 
-JSR - 
LDA 
JMP 


SSTOlO 
#100 
—I-NTMUL 


BOFE AD 68 ' 
BlOl FO IE 


LDA 

BEQ 


B103 20 DC AF 
B106 20 B6 DD 


BIOC 20 9B AB 
BlOF 20 9C AO 


JSR 

JSR 

-JSR- 

JSR 

JSR 


B115 20 03 AA 
B118 20 76 A9 


BllE 4C E8 BO 
B121 


JSR 
JSR 
—JSR- 


ANNFLO 

SI20 

LDPV 
FMOVE 
-b^FV- 

SFDIV 

FPUSHO 

-L^B^f- 

SRECIP 
SPOWER 
-SU B ONE - 

SI05 


iFIX 4 FOR I IN PERCENT (DISPLAY) 
;AND RETURN 


COMPOUND INTEREST I = ( (FV/PV)-^(1/N)-l ) *10O 


iSTORE NEW I 

;ANNUITY - USE NEWTON - RAPHSON ITERATION (SEE SSQRT) 


DUEFLG 


B121 A9 OD . 
B 123 4C E 5 ' 


;NOT VALID COMMAND - NOT IMPLEMENTED YET 




LDA 
CMP 

— —REQ-SI 30 

.ENDIF 

LDA #KEYMSG 

- -JMP-ERRSUB^ 

. IF ASMBL 

) iORDINARY ANNUITY/FV 

-F-f-I-)-=-PMT-«-<-<^-H[-)'^N-l-)/I-FV = 0 - 

FPRIME(I) = (PMT*N#(1 + I)''(N-1)-(F(I)+FV) )/I 
DELTA I = F(I)/FPRIME(I) 

-bDy!(-#0-- , T = MEM(6) . 01 = $3F, 1, 0, 0, 0, O 


LDX 




DEX 

BPL 

-tDA— 

STA 

LDA 

-STAf— 

STA 

LDA 

-S T - A - 


#3 


6*FPREe-+MEM0R YH-2v X- 


SILPl 

#*3F - 

6*FPREC+MEM0RY 


-6*FPREe+MEt10R Y+1 


DMFLG 
#*FF 
- TtER - 


i DON'T DISPLAY MEM DURING ITERATION (<-l) 
;NUMBER OF ITERATIONS 


JSR 

-t&A— 

JSR 

JSR 

- dSR- 


; ( (1 + 1 )'-'N-l )/I 
-rPMT- 


iSAVE FOR SPSUB 
-r SAVE FO R- F -' d) 






























































COLLEEN CALCULATOR, BY C SHAW 




JSR 

SPSUB 

_PPUSH0- - 

1 


USR 

LDA 

ZlINl 

#8 

-MEMMUL- 



LDA 

#7 



JSR 

MEMMUL 



JSR 

JSR 

SFSUB 

FPUSHO 
- t0I- 



JSR 

SPDIV 



JSR 

SPDIV 



-tDA- 


Ir.. 


BNE 

SI35 



JSR 

LDI 




-^1-40 


SI35 

JSR 

FMOVE 

LD I - - - 



JSR 

SFSUB 



DEC 

ITER 



JSR 

SI05 


-no 

JMP 

SILP 

dmflg- 



JMP 

SI05 



.ENDIF 


B126 

B126 AD 69 OB 

SN 

LDA 

ENTFLG 

B12B A9 07 

SN05 

LDA 

#7 

B12D 4C 71 BO 


JMP 

MEMSTO 

B130 AD 68 OB 


LDA 

ANNFLG 

B133 FO IB 


BEQ 

SN20 

B138 20 B6 DD 


JSR 

FMOVE 

B13B 20 CC AF 


JSR 

LDFV 

B141 20 7C A8 


JSR 

SLN 

B144 20 9C AO 


JSR 

FPUSHO 

1-B-1-47 2Q-81-T30- 




B14A 20 98 AB 


JSR 

SPDIV 

B14D 4C 2B B1 


JMP 

SN05 

B150 AD 67 OB 


LDA 

DUEFLG 

B153 29 02 


AND 

#2 

-B155 D0~28 








B15A A9 06 


LDA 

#6 

B15C 20 FE A4 

13 4 gC- -- 


JSR 

MEMMUL 

—E04-I04.»A - 


B162 20 DB AF 
B165 20 33 BO 
D16 Q 20 70 AD 

Bi6B A9 01 


LDPMT 
ZMULII 
-SP & fV— 


i SAVE F(I)- 

j (1 + I)^-(N-1> 
i PMT 


-1-RELOAD F(I)-PV 


iF'(I) 

;F<I)/F'<I) = DELTA I 
j-O?- 

iNO. CONTINUE 

iYES. RELOAD I INTO X REG 

iT)ONE 


iNO. I<- I+DELTA I 


-i DONE - 

iSTORE NEW I 
;CONTINUE 

-f—4—O- DONE => RETURN- 
iSTORE NEW I & DISPLAY 


iN = NUMBER OF PERIODS 


i eOMPOUND-^ INTEREST- N = LTvK FV/PV) /LN< l+I-)- 

jT^VYPV - 

iLN<l+I) - - 

;STORE NEW N 

; ANNUITY FV OR PV?- - -~ 


. PV- - 

0=> FV N=LN(FV*I/PMT+i)/LN(l+I) 

DUE N=LN(FV*I/(PMTtt(l+I))+l)/LN(i+I) 


jIF DUE THEN *<1+I) 
























































COLLEEN CALCULATOR, BY C SHAW 


B16D 20 A1 AB 
B170 -20—70-AS - 
B173 20 9C AO 
B176 20 21 BO 


JSR 


SO^e AB - 


B17C 4C 2B 
B17F 


USR 
JSR 
- JSR— 
JMP 


B17F 20 1 
B1 8 2 - 20 -^ 


B185 20 
B188 20 


55 AO 
9C AO 


B18E 20 : 
B191 A9 I 


B196 20 
B199 20 


B6 AB 
9C AO 


-B-19 G -gQ-B0-r 
09 


B19F A9 
BlAl 20 
- 81A4 -20 
B1A7 20 
BIAA 20 
BIAD 20 


FE A4 
^6 DD - 
47 AO 
B9 AB 

l-AB— 


BIBO 20 
B1B3 20 


7C A8 
9C AO 


B1B9 20 
BIBC 4C 


98 AB 
2B B1 


JSR 

-JSR^- 

JSR 

JSR 

-JSR— 

JSR 

LDA 

-JSR- 

JSR 

JSR 

-JSR- 

LDA 

JSR 

^SR— 

JSR 

JSR 

-JSR— 

JSR 

JSR 

-JSR- 

JSR 

JMP 


INTADD 

-SLN 

FPUSHO 

ZLNII 

-SSDTV 

SN05 


LDPMT 

ZMULrH 

FSTOT 

FPUSHO 


FMOVE 

#4 

- MEMMUL 
SPSUB 
FPUSHO 
L&I 
#9 

MEMMUL 
—FMQVE - 
FLDOT 
SFSUB 
-SPSW- 

SLN 

FPUSHO 


SPDIV 

SN05 


I 


BIBF 


B1C2 DO 05 
B1C4 A9 08 
BlC 6-4 € -^ l -HBS^ 

B1C9 

B1C9 AD 68 OB 


BICE 4C SO BO 
BlDl 

D lDl AD 67 0B- 

B1D4 29 02 
B1D6 DO 17 


SPMT 


SPMT05 


SPMT10 


SPMT20 


BNE SPMTIO 

LDA #8 

-JMP-MEMSTS- 

LDA ANNFLO 

■^EEQ-SPMT20 

JMP SEAL15 

-L©A-DUEFtO^ - 

AND #2 

BNE SPMT30 



BIDS 

20 

OF 

BO 

JSR 

ZlINMl 


BiDB- 

-20- 

33 

■DO— 

—JSR 

-ZMULII 


BIDE 

20 

B6 

DD 

JSR 

FMOVE 

BlEl 

20 

CC 

AF 

JSR 

LDFV 


-&te4- 

-20- 

-9B- 

-AB- 

JSR 

-SFD TV 


B1E7 

A9 

06 


LDA 

#6 

B1E9 

20 

FE 

A4 

JSR 

MEMMUL 


j B’tEC” 



Dir 




BIEF 




SPMT30 






—B6- 




B1F2 

A9 

04 


LDA 

#4 


iLN(l+I) 



PV N = i.W< (PMT-I-«-BAL)/<PWT-I*PV))/LN<l+I> - 

DUE N = LN((PMT*<1+I)-IWBAL)/(PMT*(1+I)-I*PV))/LN(1+I) 

i IF DUE THEN #<1+1) 


f 

# 


i BAL 


f 
f- 


;RELOAD PMT OR PMT*(1+I) 


iPMT = PAYMENT 


j ENTER 
; FIND 


iNO PMT IF COMPOUNT INTEREST - NOT VALID COMMAND 


FV PMT = FV*I/(i 1 + f )'^N-1) - — 

DUE PMT = FV*I/((1+I)^N-1)*<1+I)=AD0VE/(1+I) 
i (1 + I)-'N~1 

; IF DUE THEN l + I) - -- 


PMT = (PV-BAL*<l + I)''-N>/( (l-d+D'^'-N)/!) 

DUE PMT = (PV-BAL-M-( l + I )•■'—N)/( (l-< l + I I-' 
-r-f-t’+fV'—N- 


-N)/I#(l+I)) 


t 

f 

t 

f 

f 

< 

I 

, I 
f 







































COLLEEN CALCULATOR, BY C SHAW 


B1F4 20 FE A4 JSR MEMMUL 


—-B4F7-20-&6- 

BIFA 20 DC 
BIFD 20 B9 

-BD- 

AF 

AB 


—USf^— 

JSR 

JSR 

-P^MOV^---- 

LDPV 

SFSUB 

B203 20 2D 

BO 


JSR 

-FPUSHQ- 

ZllINI 

B206 20 33 

BO 


JSR 

ZMULII 










--SPDI-V-" 

i B20C 4C C4 

1 

1 

B1 


JMP 

SPMT05 

B20F 


SPV 



B20F AD 69 

OB 


LDA 

ENTFLG 






B214 A9 09 


SPV05 

LDA 

#9 

B216 4C 71 

BO 


JMP 

MEMSTO 

-B219- 





B219 AD 68 

OB 


LDA 

ANNFLG 

B21C FO OB 



BEQ 

SPV20 

B21E 20 09 

BO 


JSR 

ZIIMN 

B221 A9 05 



LDA 

#5 

ngpr>pn PP- 





B226 4C 14 

B2 


JMP 

— -flEMMUL - 
SPV05 

B229 


SPV20 



B229 20 2D 

BO 


JSR 

ZllINI 

B22C A9 08 



LDA 

#8 

no'icr ccr 





OseCI eiU PQ 

B231 20 33 

BO 


JSR 

rtpnnuL 

ZMULII 

B234 20 9C 

AO 


JSR 

FPUSHO 

-ppf3.7 PO nq 





UgwW/ 

B23A A9 04 



LDA 

#4 

B23C 20 FE 

A4 


JSR 

MEMMUL 

—B23F^-20-A7 

AB- 


JSR 

_SPADD - 

B242 4C 14 

B2 


JMP 

SPV05 


; (d-d + n-^-N)/!) 

; IF DUE THEN *d + I) 

iSTORE NEW VALUE 


;PV = PRESENT VALUE 


iENTER 
-i FIND 


^OMPQUNa INTEREST PV = FV*(1+I)^-N 
i d + I)'"-N 
; FV 

;STORE NEW VALUE 

iPV = PMT * d-d + I ) ''-N)/I+BAL*d + I )^-N 
—DUE-=^ PMT- * (1- ( H-I) •''-N ) /1 ■»• (I +1 ) +B AL* d+ d ^-N 
,• d-d + I >'*-N)/I 
I PMT 

i IF DUE THEN *d + I) 

-fd+D'^-N 
i BAL 


iSTORE 









































COLLEEN CALCULATOR, BY C SHAW 


% 

<0 


' STATISTICS ROUTINES 

-B245- 

-MEMADD- 



MEM(A)<-MEM(A)+/-FRO 


B253 20 
B256 20 
-BS39 - 


B9 AB 
FE A6 


B259 A5 
B25B 48 
-BS5G-A9- 
B25E 85 
B260 20 
-^^36 3 69 


CA 

B6 AA 


B264 85 
B266 60 


B267 
B267 48 

- -BS6&-20 3B-AQ-- 
B26B 68 
B26C 48 

-B26D- 20-45^ B2— 

B270 20 3B AO 
B273 20 AB AA 
-B2?^ibS- 

B277 18 
B278 69 01 
—^3^2-7A-4G 45 H32- 


B245 

B24S 

,-Ba4B- 

20 

AD 

-DO 

CF 

6D 

-06- 

A4 

OB 

JSR 

LDA 

pivjg 

MEMLDl 

MEMFLG 

MCriyiA 4 r\ 

1 B24D 

20 

AA 

AB 

JSR 

- rifcnfti u — 

SFADD 

! B250 

4C 

59 

B2 

JMP 

MEMA20 

1-J3253 




-- 



JSR 

JSR 


LDA 

PHA 

L.DA- 

STA 

JSR 

-FLA- 

STA 

RTS 


SFSUB 

SCHGSG 


-#1- 

DSPFLG 

SSTOlO 


i ADD? 
-t-NO. 
i YES 


SUBTRACT 

FRO-MEM(A) -> MEM(A)-FRO 


;DON'T STORE IN SCROLL AREA 
iSTORE IN MEM, DISPLAY IN MEM AREA 


DSPFLG 


B27D 

- B37^-20-C9-A4-- 
B2S0 A9 04 
B2S2 20 CF A4 
8285^ 4G-9B -AF - 


PHA 
- ^SR 
PLA 
PHA 

JSR 
JSR 
.PL A- 

CLC 

ADC 

JMP 


LDA 
JSR 
- JMR- 


;MEM(A)<-MEM ( A)+TOS MEM(A+1)<-MEM(A+1)+SQU(TOS) 

FtDOS- rFRO<~TOP-OF STACK<TOS> - - 

jRESAVE MEM # 

MEMADD- - _ _ _ 

FLDOS 

SSQUAR 


#1 

MEMADD 


-MEMLDO- 

#4 

MEMLDl 
—SFD-IVL 


FRO O MEM<A) / N 
MEM<A) -> FRO 
N->FR1 




























































COLLEEN CALCULATOR, BY C SHAW 


% 

5 

L. 


d 

% 

<m 


B28A DO 02 
B28C 

-iMJ28G-Ae9-00- 

B28E 

B28E 8D 6D OB 

--aCT^G^-AO— 

B294 A9 01 
B296 20 A7 A2 

-Ba99-A9^ 04 

B29B 20 45 B2 

-B29E h49-05- 

B2A0 20 67 B2 
B2A3 20 75 AO 

-B2A6^ 30-3B -AO 

B2A9 20 8C AB 
B2AC A9 09 
-B2AE-a0-40-B2- 

B2B1 A9 07 
B2B3 20 67 B2 
-B3B6--4G-7E-A0- 


jSIGMA MINUS (DELETE PREVIOUS ENTRY) 

; UMP 

,• SIGMA PLUS: ADD NEW X, Y PAIR 

iTHIS PART IS GOMMON TO BOTH SSMINU AND SSPLUS 


LDA 

USR 

-LDA 

JSR 


MEMFLG 

-FWSHO 


-#&- 


-U SR - 


B2BD A9 07 
B2BF DO BC 

r-aO-GD-Ba- 

B2C4 4C BA B4 
B2C7 20 D1 B2 
B2GA 4 G B A B 4 


JSR 
LDA 
^JSR - 
LDA 
JSR 


SXMEAN LDA 

-BNE- 

SYMEAN LDA 
BNE 

—SXSTOD- - OSR-^ 
JMP 

SYSTDD JSR 
- -JMP - 


ZSIGMA 

FPOPl 

-FLDOS 

SFMUL 

#9 

- -MEMADD 


-MEMOiV— 
#7 

MEMDIV 

-SXVARI 

SSQRT 

SYVARI 


-jaiGMA X 

(COMPUTE SIGMA X, SIGMA X SQUARED 
i LOAD X 

(LOAD Y LEAVE ON STACK) 

(SIGMA (X*Y) 

(SIGMA Y 

(COMPUTE SIGMA Y, SIGMA Y SQUARED 
( Y -> X 

(MEAN(X) <- SIGMA(X)/N 
—(-JMP- 

(MEAN<Y) <- SIGMA(Y)/N 
( JMP 

rSTANDARO DEVIATION (X) <- SQRT<VARIANCE(X)T 


(STDDEV(Y) <- SQRT(VAR(Y)) 


B2CD 

SaCD A9 -0#- 

B2CF DO 02 
B2D1 


SXVARI 


-LDA- 


B2D3 

B2D3 20 El B2 
BaD 6-Aa-03- 

B2D8 20 CF A4 
B2DB 20 AA AB 
-aaDE--4G-98 AB- 
B2E1 
B2E1 48 


B2E5 20 AB AA 
B2E8 A9 04 
-a2EA-20-OF-n 


B2ED 20 AA AO 
B2F0 20 9B AB 


JSR 

-LDA- 

JSR 

JSR 

JMP 

PHA 


JSR 
LDA 
-^SR - 
JSR 
JSR 


B2F3 20 D6 DD -- 

B2F6 68 
B2F7 IS 


-^SFe-69-at - 

B2FA 20 C9 A4 
B2FD 20 B9 AB 
B300 4C F 9 AA 


--JSR- 

PLA 

CLC 

JSR 

JSR 

J MP- 


MEMLDl 

SFADD 

-SPDIV 


- MEMLD0 - 
SSQUAR 
#4 

—ME«L0t— 
FPUSHl 
SFDIV 
—FMOVE- 


VARIANCE(X) <- (SIGMA(SQU(X>)-SQU(SIGMA(X))/N)/(N+WEI6HT) 

SIGMA X 

JMP 

VAR(Y) <- (SIGMA(SQU<Y))-SQU(SIGMA(Y))/N)/(N+WEIGHT) 
aiGMA Y~ 

THIS PART IS COMMON TO BOTH SXVARI AND XYVARI 

COMPUTE SIOMA<SQU())-SQU(SIGMA())/N 

WEIGHT 

(N+WEIGHT (SHOULD BE 0 OR -1) 

;NUMERATOR/(N+WEIGHT) - 

( COMPUTE SIGMA(SQU(A))-SQU(SIGMA(A))/N 
iSAVE REG # 

(SIGMA 
;SQU(SIGMA) 


(SAVE N FOR LATER 


RELOAD REG # 
AND INCREMENT 
SIGMA(-SQO-)- 


MEMLDO 

SFSUB 

- S - X - CHOY — 


ft 

ft 
ft 
ft 
ft 

r 

€ 

1 ^ 

♦ 

¥ 

t 

# 

































COLLEEN CALCULATOR, BY C SHAW 


L 


B303 20 Cl B2 
B30A-a0 -9C-AO- 
B309 20 C7 B2 
B30C 20 98 AB 
-B3 0F - 2 Q-9C-AQ— 


SCORRE USR 
USR~ 


B312 20 5A B3 
B315 4C 89 AB 


JSR 

JSR 

-USR 

USR 

UMP 


SXSTDD 
- FPUSHO 
SYSTDD 
SPDIV 

-FPUSHO 

SSLOPE 

SPMUL 


;CORRELATION = R = M * STDDEV<X)/STDDEV(Y) 


iSTDDEY(X)/STDDEV(Y) 


B318 

B318 20 9C AO 
20-5A B3 - 


B31E 20 89 AB 
B321 20 9C AO 
B32 4 3 0-3€-B3~ 


B327 4C A7 AB 



i Y <~ M*X 
;SAVE X 


= Y-INTERCEPT 


B32A 20 9C AO 
B32D 20 3C B3 
-B3 30 20 B ^AB- 


USR 

USR 


FPUSHO 

SYINTE 


-X~-<- (Y-B-)/M 
SAVE Y 


(Y ENTERED IN X REG) 


B333 20 9C AO 
B336 20 5A B3 


USR 

USR 


FPUSHO 
SSLOPE 
-BPDt'^ - 


r 


B33C 

-^ 33C 20 5 A- B3 - 


i (Y-B)/M - 

iY-INTERCEPT = B = (SIGMA<Y)-M*SIGMA(X))/N 


B33F A9 05 
B341 20 CF A4 
B3 44 20 8C AB - 


LDA 

USR 

-^SR- 


B347 20 B6 DD 
B34A A9 07 
-B34 C 2Q - C9 A 4 - 


USR 

LDA 


MEMLDl 

—SFMUL- 

FMOVE 


i SIGMA X 
-J M^^S I GMA (-X ) 
iSIGMA(Y) 


B34F 20 B9 AB 
B352 A9 04 , 
-^354 20 CF A4— 


USR 

LDA 


—MEMLDG- 
SFSUB 


i N 


B357 4C 9B AB 


-MEMLBl- 

SFDIV 


B35A 

B35A A9 05 
-B3^ 5C-2Q El 1 


(SIGMA(X*Y)-SIGMA(X)*SIGMA(Y)/N)/(SIGMA(SQU(X))-SQU(SIGMA(X))/N 


B35F 20 B6 DD 
B362 A9 05 
-B 36 4 20-C^A4— 


USR 

LDA 


-2VAR2~ 

FMOVE 


#5 


;SLOPE = M 
iSIGMA(X) 

-J COMPUTE SIGMA(SQU(X)>-SQU(STGMA(X))/N, STORE ON-STACK 
;N-> FRl (PUT IN FRO BY ZVAR2) 

;SIGMA(X> 


-MEMLDO- 


B367 20 9B AB 
B36A A9 07 
B3< & C -20-ef=^4— 


USR 

LDA 


B36F 20 8C AB 
B372 20 B6 DD 


B375 A 9-QR- 


USR 

USR 


B377 20 C9 A4 
B37A 20 B9 AB 


-B 37D 20 75 AO 


B380 4C 9B AB 


USR 

USR 

- US R 


SFDIV 

#7 

-MEMtD^i- 

SFMUL 

FMOVE 

--- 

MEMLDO 

SFSUB 

- F P OPl - 


it- 

t 

t 

t 

; 4 


iSiGMA(X*Y)- 


iNUMERATOR 

rLOAD DENOMINATOR (FROM—ZVAR2)- 


SFDIV 


B383 A9 03 
B385 85 AF 


LDA 

STA 


iWEIGHT FACTOR 
r M EM(3) < —X-- 













































^ COLLEEN CALCULATOR. BY C SHAW 


BASIC SINE ROUTINE 

__-FQ-FI4(-BU©S-QF- VERSION -5. 9-OF -SHEP BAS!G 

BY DAVE & LARRY 
-A-S-79- - 


;-Baa A- 

B3aA 

B38D 

20 

20 

9C 

09 

AO 

A5 

-SINMOD- 

JSR 

JSR 

FPUSHO 

PIOVL 

iP^IND-ANGLE-MOD 2*PI. 360 OR 400 - -- - 

iDEPENDING ON CURRENT MODE. SAVE FRO ON STACK FOR MOD 
iLOAD PI/2. 90, OR 100 


c 

1 _B390- 

B393 

B395 

_ 

A9 

20 

-AC- 

-89- 

04 

83 

-OS- 

-DD- 

AB 

-Afi - 

— ' —JSR - 

LDA 

JSR 

-JMP— 

-FLDOR-- - 

#4 

INTMUL 

——SMQD- 

.MULTIPLY BY 4 (LOSE ACCURACY IN lOTH DIGIT OF 2*PI) 
iTAKE-MOD AND RETURN - 


6 


COSINE ROUTINE -- ADD 90 OR PI/2 TO FRO TO DO SIN 


B39B 20 BA B3 
B39E 20 09 A5 


JSR 

JSR 


B3A4 20 66 DA 
B3A7 4C AD B3 


JSR 

JMP 


SINMOD 
PIOVL 
-EL^D4R- 

FADD 

SSIN2 


;TAKE ANGLE MOD 2*PI, 360 OR 400 
;SET UP X & Y REGS TO LOAD PI/2 90 OR 100 
-PUT P1/2 OR 90 INTO FR4 
FRO=FRO + PI/2 (OR 90) 


B3AA 

- ^3AA-20- 8A-B3- 

B3AD A5 D4 
B3AF 29 80 
-B3 B1 8 5 FO - 

B3B3 A5 D4 
B3B5 29 7F 
-B3B 7 85 - B 4- 


i SINE ROUTINE 

-H-eOMPUTE-OUADRAWIV -GET—FRAGTI QN-AND DO-POL-YNOMI AL 

; THEN ADJUST FOR QUADRANT 
SSIN 

--,,;SR--SINMOD - 

SSIN2 LDA FRO 

AND #$80 

- -STA—-FGMBFLG- 

LDA FRO 

AND #$7F 

- -STA-FRO- - 


i TAKE angle; mod 2-s-PI, 
GET SIGN 


-AND- SAVE 


FRO=ABS(FRO) 


360 OR 400— 


FR0=FR0/(PI/2) OR FR0=FR0/90 

-P-tOVL- 

JSR FLDIR 

JSR FDIV 

- NOSNER 


i L-OAD- X-8<-Y REGS TO GET P^-/2 90- i 

FRl=PI/2 OR 90 

FR0=FR0/FR1 


B3C4 

B3C4 4C BE AB 
-D3G7- 


GO IF ERROR 


IF FRO NOW FRACTION. IT IS QUADRANT 0 
-E LSEr - G E- T -TNTEGEfT-OF-FRO-LSD 


B3C7 A9 00 
B3C9 85 C5 


B3CC A5 D4 
B3CE E9 40 
B3D0 30 3 7 

B3D2 C9 04 
B3D4 BO EE 


LDA 

STA 

-SEC— 

LDA 

SBC 

-BMi— 

CMP 

BCS 


QUADFLG ASSUME QUADRANT 0 

FRO GET EXPONENT 

#$40 SUBTRACT 64 EXCESS 

-SINF3-GO IF-GUADRANT-0- 

#FPREC-2 IS EXPONENT TOO BIG? 

SINERR YES 


ACC=INDEX TO LSD. GET 10#TEN'S DIGIT + ONE'S DIGIT 
THEN AND WITH 3 TO GET QUADRANT 
--INDEX—TO LSD I N-- F R O — 


B3D7 B5 D5 










































COLLEEN CALCULATOR, BY C SHAW 


# 

I 

# 

% 


B3D9 29 OF 
30B-8^ FI 
B3DD B5 D5 
B3DF 29 FO 


B3E2 85 C5 
B3E4 4A 


B3E6 18 
B3E7 65 C5 
-33E 9 65 -Fl 


B3EB 29 03 
B3ED 85 C5 
-^3E F -86-F4- 


B3F1 20 B6 DD 
B3F4 A6 FI 
-33 F 6 A9 Q Q^- 


B3F8 95 E2 
B3FA E8 
-33FBHE0 04- 


B3FD 90 F9 
B3FF 20 60 DA 


B402 46 C5 
- B 4 Q 4 90 05 


B406 A9 01 
B408 20 BO AB 


B40B A2 E6 , 


B40F 20 A7 DD 


B417 A9 06 
B419 A2 06 
B41B A 0-&6- 


B41D 20 40 DD 
B420 A2 E6 
-B422-A0-O5 - 


7 


AND 
-ST A 
LDA 
AND 
-1=SR— 


STA 

LSR 

LSR- 

CLC 

ADC 

-ADG— 


GET ONE'S DIGIT 
AND SAVE 
GET LSD 

GET TEN'S DIGIT 

TIMES 8 

AND TEMP SAVE 


TIMES 2 


AND 

STA 

--S- T X - 


QUADFLG 

DIORT 

#3 

QUADFLG 

-DI-GR-T— 


PLUS TIMES 8 GIVES TIMES 10 
PLUS ONE'S DIGIT GIVES INTEGER 
MASK LOW BITS 

NOW HAVE QUADRANT (0,1,2, OR 3) 
SAVE INDEX TO LSD 


PUT FRO IN FRl, AND CLEAR FRACTIONAL PART OF FRl 
^THEN-GET- FRG=FRAG-T IONAL PART- OF- FRO 

JSR FMOVE FR1=FR0 

LDX DIGRT RESTORE INDEX 

-LDA-#0- 

SINFl STA FRI+2,X CLEAR FRACTIONAL PART 

iNX from digrt+1 to end 

-GPX-#FPREG-2 DONE"? - 


BCC 

JSR 


SINFl 

FSUB 


NO 


FR0=FR0-FR1 (FRO WILL BE FRACTIONAL PART) 


IF ODD QUADRANT, SET FRO= 
LSR QUADFLG 

-BGO-STM=3- 


LDA 

JSR 


-FRO (90 DEGREE INVERT) 
IS IT ODD QUADRANT? 

— -NO-- 

;FRO <- 1-FRO 


i SAVE ARG FOR LATER 
SINF3 LDX #FPSCR 

--# FPSC R /256 - 


SCRATCH REG LO BYTE ADDRESS 
-HT- BYTE ADDRESS 
FPSCR=FRO 



Kir-ki 1 y-^nh4ni i-rr- r?TKicr .. .. . . 

B412 20 AB AA 

-B44^BO^-34- 

—hH=#W—t7tJrrr*U I t" ’O-xiMt" . . 

THIS CODE TAKEN FROM BASIC 5. 9 LINES 6760-6770 

JSR SSQUAR FR0=X'H-*2 

-BOS-STNFIN- ,-ERROR (ALREADY REPORTED) _ ^ . 


LDA 

LDX 

-LDV- 


#NSCF 

#SCOEF 

-#Se-eEF/256- 

PLYEVL 

#FPSCR 


# 

f 

f 

f 

e 

r 

f 

f 

I 


EVALUATE P(X**2) 


B424 20 98 DD 
B427 20 DB DA 


LDX 

-LDY-#FPSeRy-256 

JSR FLDIR 

JSR FMUL 


FR1=X 

FR0=SIN(X)=X*P(X#*2) 


B42A 46 C5 
-B42e-90 08- 


IF LOWER QUADRANT (2 OR 3) THEN FR0=-(FR0) 

LSR QUADFLG IS IT LOWER QUAD? 

-BOO-SfNF4-NO- 


B42E A5 D4 
B430 FO OC 
—B432-^^-80^- 


LDA 

BEQ 

-EQR- 


FRO 

SINDON 

-#^o- 


IS FR0=0 
YES 

EL8E, FRO=-(FRO) 


B434 85 D4 


—I- F S IG N - WA 9-NEGAT-I^E-eQM TNG—TN-T-O-RQU-T-rNE;—TNVERT -8 rGW- 


GOING OUT 


0 








































COLLEEN CALCULATOR 


BY C SHAW 


B436 

1-B438 

A5 

-PQ- 

D4 

^94 

SINF4 LDA 

JlfTA— 

FRO 

T Kirxriki 

ANSWER 


B43A 

45 

FO 

UtlSi 

EOR 

-crTNDON 

FCHRFLO 

-00 IE" ZERO— — 
INVERT ORIGINAL 

SIGN 

B43C 

85 

D4 

STA 

FRO 

AND THIS IS END 

ANSWER 


^3 E - 29 7F 

B440 C9 40 
B442 90 07 
-&44 4 18 - 

B445 A9 00 
B447 85 D8 
- B449 85 

B44B 60 


i IF ABSCFRO) >= 1 THEN PERFORM PSEUDO INT(FRO) 

^IND0N—AND-# »7F - -WITHOUT STON BIT-- 

CMP #$40 COMPARE $40 

BCC SINFIN 

--ete- NO ERROR CLEAR - 

LDA #0 STORE 0 IN LOW BYTES OF FRO 

STA FRO+4 

—— -ST A rR 0 4-5- - 

SINFIN RTS 












































COLLEEN CALCULATOR, BY C SHAW 


M 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 


-B44C^-SATVVN 

I B44C A9 00 

; B44E 85 FO 

.-- - 

B452 A5 D4 
B454 29 7F 

- B 4 5 6 C9 4 0 - 

B458 30 15 
B45A A5 D4 

- B 4 5C 29 80 - 

B45E 85 FO 
B460 E6 FI 

,- B 4 62 A9 7 F- 

B464 25 D4 
B466 85 D4 

>-B46Q-A2-EA-- 

B46A AO DF 
B46C 20 95 DE 

-B4^y=-ATARlr 

B46F A2 E6 
B471 AO 05 

-&473-2 Q -A 7 D B- 

B476 20 B6 DD 
B479 20 DB DA 

-B 47C - B O ^- 

B47E A9 OB 
B480 A2 AE 


B484 20 40 DD 
B4S7 BO 2E 

-B4e9-A2-E6- 

B4SB AO 05 
B48D 20 98 DD 


B493 BO 22 
B495 A5 FI 

—B4W-F e - l ^- 

B499 A2 FO 
B49B AO DF 

--g44>D-20 98 DD - 

B4A0 20 66 DA 
B4A3 A5 FO 

-B 4A5 05 D4 - 

B4A7 85 D4 

B4A9 ATAN2 

-B4A9-A5-FB--- 

B4AB FO OA 


B4AD A2 36 

^B4ArF^A^B6- 

B4B1 20 98 DD 
B4B4 4C 9B AB 
-&4B7- 

B4B7 4C BC AB 


FROM SHEPARDSON ATARI BASIC 5.9 4-5-79 (MODIFIED) 

- ;ARCTAN(FRO) - 

LDA #0 

STA FCHRFLG ;SIGN FLAG OFF 

~STA -DIGRT- -r-AND TRANSFORM FLAG 

LDA FRO 

AND #$7F 

-^P-#^0- iC+IECK )^ A/S 4 : 0 - - - 

BMI ATANl ;X<1 - USE SERIES DIRECTLY 

L-DA fro ; X>=1 - SAVE SIGN & TRANSFORM 

-AND-*^0- - - - - 

STA FCHRFLG ;REMEMBER SIGN 

INC DIGRT 

-tDA-#^7F- - 

AND FRO 

STA FRO ;FORCE PLUS 

-L-DX-#FP9S- „ _ 

LDY #FP9S/*100 

JSR XFORM iCHANGE ARG TO (X-1)/(X+1) 


LDX #FPSCR iARCTAN(X), -1<X<1 BY SERIES APPROX 

LDY #FPSCR/256 

—iJSR-FST^R- rX->FS€R- ~ - - 

JSR FMOVE ;X->FR1 

JSR FMUL ;X*X->FRO 

—*eS-AT4N«3UT--)-QVERFLOW- 

LDA #NATCF 

LDX #ATCOEF 

—LDY-#ATC0EFA256- 

JSR PLYEVL ;P(X#X) 

BCS ATNOUT ;ERROR 

-LDX-#FPSCR- - 

LDY #FPSCR/256 

JSR FLDIR iX->FRl 

JSR H=MUL- T-X*P<X*X) 

BCS ATNOUT ;OVERFLOW 

LDA DIGRT iWAS ARG XFORMED 

-BEQ-AT-AN2 - - - ; NO. ^ _ 

LDX #PI0V4 ;YES-ADD ARCTAN(l) = PI/4 

LDY #PI0V4/256 

-JSR---FLD1R- 

JSR FADD 

LDA FCHRFLG ;GET ORG SIGN 

-ORA-FRO^- 

STA FRO iATAN(-X) = -ATAN(X) 

-LDA-RABFtG-rRAD OR DEG - - 

BEQ ATNOUT ;RAD - FINI 

CLC 

tADO -frPtOVl-S-FPREC- - 

TAX jDIVIDE BY PI/lOO OR PI/200 

LDX #PI0V18 iABOVE IS USED IF GRADS ALLOWED 

-LDY-ttPt Q^/18/2 D6-- 

JSR FLDIR 

JMP SFDIV 


ATNOUT- 


JMP 


CRYCHK 


























































COLLEEN CALCULATOR, BY C SHAW 


B4BA 

B4BA A9 00 
B4 BC -85-F^ 
B4BE A5 D4 
B4C0 10 08 


0 

s 


B4C4 20 E5 9B 
B4C7 20 B9 A5 

I-B4€^A- 

B4CA C9 3F 

j B4CC FO 17 

I-B4 C -£- 1 8- 

B4CF 69 01 
B4D1 85 FI 

-B4D3-8^E0- 

B4D5 A9 01 
B4D7 85 El 

i-^4D9^-A2-03- 

B4DB A9 00 
B4DD 

:- B 4 DD - 95 E 2 - 

i B4DF CA 

i B4E0 10 FB 

^-B4E 2 - 2e 2 8 DB 

B4E5 

B4E5 A9 06 


B4E9 A2 E6 
B4EB AO 05 
-B4ED-20-A7-fiD- 

B4F0 A9 02 
B4F2 20 BO AB 
B 4 F5 A2 E 6- 

B4F7 AO 05 
B4F9 20 98 DD 

-B4Fe-20-DB HM- 

B4FF 

B4FF A2 EC 
-&50 1 - AQ 0 5- 

B503 20 A7 DD 
B506 20 B6 DD 
-&5©9-Ta>^E6- 

B50B AO 05 
B50D 20 89 DD 

-fi5i^-20^-28-DB- 

B513 A2 EC 
B515 AO 05 
- B517 20 9 8 B D- 

B51A 20 60 DA 
B51D A2 6C 

■-B^5ii^-A0-DF-- 

B521 20 98 DD 
B524 20 DB DA 
- B 5 27 A ^-D4- 

B529 FO OE 


; FROM SHEPARDSON ATARI BASIC 5.9 4-5-79 (MODIFIED) 

-USES-NEWTON-RAPHSON ITERATION - - - 

j F(Y) = Y»Y - X 

i FPRIME(Y) = 2*Y 

-i--Y- H + 1 - 3 — - F( YE I3T / FPRIMECYCI]) = YM D + . 5*( (X/YCID-YM]-) - 

SSQRT ;X<-SQRT(X) 

LDA #0 


LDA FRO 

BPL SQRO 

- -LDA-#EITMS(5- . _ _ - 

JSR ERRSUB i<0 => ERROR 

JSR SABSVA ;TAKE ABS VALUE AND DO SQUARE ROOT (ABSVAL LOADS FRO INTO A) 

-SQR0- - - 

CMP #$3F 

BEQ FSQR ;X IN RANGE OF APPROX - GO DO IT TO IT 

- -- - 

ADC #1 

STA DIGRT i NOT IN RANGE - TRANSFORM 

-STA - FR-1 - - i MANTISSA = 1 

LDA #1 

STA FRl+1 

--#FPREG-3- J CHANGED 5/11/79 FROM FPREC-E 

LDA #0 

SQRl 


-STA- FRI + R t^X- 

DEX 

BPL SQRl 


FSQR 

LDA #6 

-STA-ESI-GN- 

LDX #FSCR 

LDY #FSCR/256 

- - JSR -FSTOR- 

LDA #2 

JSR INTSUB 

--#FSCR- 

LDY #FSCR/256 

JSR FLDIR 

-JSR-FMUL -- - 

SQRLP 

LDX #FSCR1 

-I_^Y-#FSCRl-/256 

JSR FSTOR 

JSR FMOVE 

-LBX-#FSCR- 

LDY #FSCR/256 

JSR FLDOR 

-JSR-FSTV— — 

LDX #FSCR1 

LDY #FSCR1/256 

-JSR-FtDlR-- 

JSR FSUB 

LDX #FHALF 

- ~tDY — - '#F+(AtF/25r6- 

JSR FLDIR 

JSR FMUL 

-L-SA--FRO-—- 

BEQ SQRDON 


-X/100*-«-N- 

SQR(X) 0. 1<:=X<1 


i STASH X IN FSCR 
i 2-X 

iX~>FR1 

i X-M^-X ) : 1ST APPROX 


iY->FSCR1 
;Y->FR1 


i xy Y 


;(X/Y)-Y 


i . 5-»( (X/Y)-Y)=DELTAY 
-;-DEtTA~0- - 





























































COLLEEN CALCULATOR, BY C SHAW 


B52B A2 EC 
-B^2B”A&-e5- 

B52F 20 98 DD 
B532 20 66 DA 
-B^&35- C6 EF - 

B537 10 C6 
B539 

B539 A2 EC - 

B53B AO 05 
B53D 20 89 DD 


LDX #FSCR1 

- -LDV ttFSCRl/256 

JSR FLDIR 

USR FADD 

-DEC- mim - 

BPL SQRLP 

SQRDON 

--- ~hm -— ttFSCR-l- 

LDY #FSCR1/256 

JSR FLOOR 


B540 A5 FI 
B542 FO 20 
-B 54 4 3 8— 

B545 E9 40 


- B5 4 7 4 A 


B548 

B549 


18 

69 40 


-D 5 4 B 85 E ^ 


B54D 

B54F 


A5 FI 
6A 


-B- 550 - A9 01 


B552 

B554 

-B 556 


90 02 
A9 10 


LDA 

BEG 

SBG- 

SBC 


LSR 

CLC 

ADC 


LDA 

ROR 

LDA 


BCC 

LDA 


SQR2 


DIGRT 

SQROUT 

#$40 

-A- 

#$40 
-FR-1- 

DIGRT 

A 

HHl- 

SQR2 

#$10 


B556 

B558 

B55 A 


85 El 
A2 03 
A9 00 


B55C 

B55C 

-B^3Er 


95 E2 
^A- 

10 FB 
20 DB DA 


STA 

LDX 

LD At 


STA 


-DE^ 

BPL 

JSR 


JSR 

RTS 


FRl + 1 
#FPREC~3 
-#0 - 


FRl+2,X 


B55F 

B56i 

-B564- 


B564 

B567 


20 B9 A5 
60 


“SGROtf-T 


SQR3 

FMUL 


SABSVA 


i Y*Y+DELTA Y 
-»-eOUNT LOOP 


.DELTA = 0 - GET Y BACK 

WAS ARG TRANSFORMED? 

;N0 FINI 

iYES - TRANSFORM RESULT TO MATCH 
i-DIVIDE EXP BY 2 

i MANTISSA = 1- 
;WAS EXP ODD OR EVEN 
;ODD - MANT = 10 

.CHANGED 5/11/79 FROM FPREC~2 

iCLEAR REST OF MANTISSA 

;SQR(X) = SQR(X/100**N) « (10**N) 



































COLLEEN CALCULATOR, BY C SHAW 




_ DATA_ _ 

THE FOLLOWING TABLES MUST NOT CROSS PAGE BOUNDARIES 

■1 - - - -.. 

MY EXPERIMENTAL SCOEF FOR SIN,COS (9 TERMS INSTEAD OF 6) 


i .BYTE $3A, *06, *06, $69, $35, *73 i 6. 066935731E-12 

f .BYTE $BB,$06,$68,$80,$35,$12 ;-6.688035123E-10 = -(PI/2)^15/15! 

i- . BYT -E-$3E,-$0 5 , - $ 6 9 i-$2-l-,-$72, ^92-) 5. 6921-729228-08-= -(P1/2 > 13 /13^- 

i .BYTE $BD, $03, $59, $88, $43, $24 j-. 00000359884324 - < PI/2) "'11 /11 ! 

i .BYTE $3E, $01,$60,$44,$11,$85 ;0.000160441185 

—-^YT-E-^$BE7-$4^r$8-lT $7^, $41-, $35-f -. 004681754155 - 

. BYTE $3F, $07, $96, $92, $62, $62 i0. 0796926262 

. BYTE $BF, $64, $59, $64, $09, $75 i-.6459640975 

-^YTE-$40,^(M-, $57,$07, $96, $32 )PI/2 = 1.570796327^- 


0 


¥ 

¥ 


B600 40 03 14 


B606 

B606 BD 03 54 
6©9 14^9 39- 
B60C 3E 01 60 
B60F 44 27 52 
-B^rl3-BE-46-81 
B615 75 43 55 
B618 3F 07 96 
-^A4E-9 2 6 2 39 

B61E BF 64 59 
B621 64 08 67 
D 6 2 4 4 0 01 57 - 

B627 07 96 32 
B62A 40 90 00 
-fi^,2D-00-00-00- 

B630 42 06 55 
B633 3 6 00 00 - 

B636 3F 01 74 
B639 53 29 25 


B63C 40 01 80 
B63F 00 00 00 


PICONST .BYTE $40, $03. $14, $15, $92, $65 iPI = 3.14159265 


SCOEF 

. BYTE $BD, $03,$54,$14,$99,$39 00000354149939 


.BYTE $3E, $01, $60, $44, $27, $52 ; 0. 000160442752 

-r-BY-TE- -$BE,^46i $8-1, $75, $43, $55 i —. 004681754355 

. BYTE $3F, $07, $96,$92,$62,$39 ;0. 0796926239 


. BYTE $BF, $64, $59, $64, $08, $67 ;-.6459640867 

.^VT-E-$407-$01r$57T $07 t-$96, $32 i PI/2 = 1. 57079^6327 

.BYTE $40, $90, 0, O, 0, 0 i 90 (DEGREES) 


. .BYTE $41, $01,0,0,O,0 ; 100 (GRADS) 

C65536 .BYTE $42,$06,$55,$36,0,0 ;65536 IN FP (USED IN BINFP) 


PI0V18 .BYTE $3F,$01, $74,$53,$29, $25 ;PI/180 = .0174532925 

-r BY-TE 

1 C10000 .BYTE 
iC365 . BYTE 

-rOPT-75-r^YTE 

C1PT8 -BYTE 


-$^3Ft $01t^7,-$07,^96, $33 J PI/200 = . 0157079633- 

$42,$01,0,0,0,0 ilOOOO (USED IN DAY CALCULATIONS) 

$41, $03, $65, 0, 0, 0 i 365 

—$3F-,^7^,-0t 0,-0, O- i . 75 = 3/4 

$40, $01, $80, 0, 0, 0 il.8 (USED IN SCELSI) 


¥ 

¥ 

¥ 

¥ 

¥ 


B642 40 01 00 
B645 00 00 00 

-Bi£p48-3F-02-54- 

B64B 00 00 00 
B64E 3F 30 48 

B6D1 00 00 0 0- 

B654 3F 91 44 

B657 00 00 00 

B65A-41—1-6 09 - 

B65D 34 40 00 

B660 3F 01 00 

D663 00-0 0-00- 

B666 41 10 00 
B669 00 00 00 


. BYTE $40, $01,0, 0, 0, 0 

--byte-$3F7^02-. *54, Ot-Ot-O- 

. BYTE $3F, $30, $48, 0, 0, 0 
.BYTE $3F, $91, $44, 0, 0, 0 

--3YTE-- $41 ,-$16, $09, $34, $40, 0 

.BYTE $3F, $01, 0, 0, 0, 0 


iM -> M =1 EXACTLY 

7INCHE8->M = . 0254 EXACTLY 
iFEET . 3048 

1 YARDS 
;MILES 
i CM 


. 9144 
1609.344 
. 01 


. BYTE $41, $10, 0, 0, 0, 0 


i KM 


1000 























































% 


COLLEEN CALCULATOR, BY C SHAW 



B66C 41 18 52 


. BYTE 

$41, $18, $52, 0, 0, $04 


1 B672 

MASS 


lfe.AO A BIO 


B675 49 52 31 
B67S 3F 45 35 


. BYTE 

$3F, $45, $35, $92, $37, 


B67E 3E 10 00 
B681 00 00 00 


. BYTE 

$3E, $10, 0, 0, 0, 0 


B684 

VOLUME 

. BYTE 

$3F,$16,$66,$66,$66, 


-B684 41 Q4_28 - 


. BYTE 
. BYTE 

-$3F r-$50 r-O ,-0, -Ot 0" 

$40, 8, 0, 0, 0, 0 
$40, $32, 0, 0, 0, 0 


B6S7 00 00 00 
B68A 40 33 81 


. BYTE 

'$41, $01-t-$28, 0,0,0 

$40, $33, $81, $40, $22, 

$1 

B690 

B690 3F 90 00 

DEGREE 

. BYTE 

$3F, $90, 0, 0, 0, 0 


B696 40 57 29 


. BYTE 

$40, $57, $29, $57, $79, 


# 


f NAUTMI 1852. 000004 ???????? 

tOZ->KG = .02834952313 (NOT EXACT) 
iLB .45359237 ?? 

iGM . 001 EXACTLY 


. 1666666667 
.5 EXACTLY 


TSP->FLOZ 
TBSP 
CUPS 8 

QUARTS 32 

GAL 128 


iLITERS 33.81402266 NOT EXACT? 


B699 57 79 51 


i 180/200 

i180/PI = 


« 

- 

,r 


iPIOCOF 

MY EXPERIMENTAL PIOCOF FOR EXP FUNCTION 





. BYTE 
. BYTE 

$3D, $76, $55, $34, $94, $63 
$3E, $05, $31, $94, $81, $65 

UUWUUV/Vt'UdV/SJ = 

i .00007655349463 = 

;.000531948165 

1 ::1: 


./a ' . 


. BYTE 

—$3E7-$32-,-$34,'$31, $01, $36 
$3F, $01, $68, $55, $71, $65 

i.003234310136 
;.0168557165 




r ! 

. BYTE 
- .-BYTE- 

$3F, $07, $32, $03, $44, $68 
--$3F, $25, $43, $34, $82, $44 

i.0732034468 
i . 2543348244 


. 9 GRAD -> DEG 
57.29577951 RAD -> DEG 


<LN<10)/2)''4/4! 


. BYTE 
. BYTE 


$3F,$66,$27,$37,$26, $38 
$40,$01,$15,$12, $92, $55 
$3Fr$99,^99, $99, $99, $99 


. 6627372638 
1. 15129255 
999999999 


= (LN(10)/2>''2/2! 
= LN(10)/2 
APPROX. 1 


-i-MAX-DAV^ 

,- DAYTRM 
iDAYTBL 


-BYTE- 

BYTE 

BYTE 


B69C 2A 2F 2B 
B69F 2D 28 29 


LENGTH OF EACH MONTH + 1 IN BCD 

H-$31t-$ 307-1+$31,-1+$30, 1+$31, l+$30, 1+$31, 1+$31, l+$30, 1+$31, l+$30, 1+$31 
0, 0, 3, 3, 4, 4, 5, 5, 5, 6, 6, 7 ;# OF DAYS LESS THAN 31/MONTH FOR EACH MONTH 
"SATSUNMONTUEWEDTHUFRI" 

- SPECIAL SINGLE CHAR COMMANDS 

■•#/+-( UPAROW, DNAROW, LFAROW, RTAROW 



B6A5 

25 

1C 

ID 




B6A8 

IE 

IF 


-T^W-CKi-Pk— 





B6AA 






TOKEN NUMBERS FOR TOKCHR COMMANDS 


8E 

8F 

90 

TOKTBL 

. BYTE 

STAR,SLASH,PLUS,MINUS,LPAR,RPAR, EQUAL, POWER, FACTOR, PERCEN 


B6B0 

94 

5B 

28 




B6B3 

54 






* 1 

B6B4 

OC 

76 

21 

SPCTBL 

. BYTE 

BSTEPr-SST-EFi-DetETE, INSERT-ARE PART OF BOTH TOKTBL“8,7~SPCT-BL- 

SPECIAL COMMANDS IN STORE PROGRAM MODE (EXECUTED IMMEDIATELY, 
BSTEP,SSTEP,DELETE, INSERT,CLP, ZEND,PROGRAM 


B6BA 

5E 







COLLEEN CALCULATOR, BY C SHAW 







































COLLEEN CALCULATOR, BY C SHAW 


B6I3B 

B6BE 4B 3A 9B 
B6C1 45 52 52 
B6C 4 4 F 52 20 - 

B6C7 2D 

B6C8 20 2A 2A 

B 6C B 2 A - 


B6CC 11 17 05 
- B 6 CF 01 1 3-04- 

B6D2 lA 18 03 
B6D5 58 59 32 
- ^ 6 D 8- 3a 3 4 35 


SPCEND 
PB U FF- 

KBUFF 

ERRMSG 


■- BYT E-^ 


r-GR- 


. BYTE 
. BYTE 


"K: ", CR 
"ERROR “ 


STARMS . BYTE 


iGRAPHICS CHARS FOR SCREEN DISPLAY -64 => CONTROL KEY HIT (USED IN PTLINl) 

CHRTAB .BYTE 'Q-64, 'W-64, 'E-64, 'A-64. 'S-64, 'D-64, 'Z-64, 'X-64, 'C-64 


"XY23456789" 


STACK LABELS 
























































COLLEEN CALCULATOR, BY C SHAW 


B6E2 54 
B6E5 4F 


4^5-53- 
41 4E 
53 49 


B 6 E8 4 3 ^ 4 


B6EB 4D 
B6EE 47 
-- B 6 F1 59 
B6F4 42 
B6F7 51 


50 55 
46 58 


4B 57 
5A 4A 


B700 


B703 17 E2 35 
B706 47 38 19 
-^^^^-^ 1 51 37 - 


; OUTPUT FROM BASIC PROGRAM DKl;WORDSG. BAS 

-TABLE-.^BYTE-u-ERTANOS IC LBMPUGF X Y VHB KWQ Z J " 


-"*=*~^-‘'^256+4r*S56—i-G0T0~NEX-T-PAGE BOUNDARY- _ 

ERRTBL 

'• TWO OPERATORS IN A ROW 

-TQPMSG^ : BYTE-a4^-64T-T-3E,-23, 226 t-53tT- 1 , 56r 25, 97, 81, 55, £ 


B710 04 5B 9C 
B713 lA 7D D5 


NOT VALID COMMAND 
T BYTE-187-103rA-5T A, 94^156, 26, 125, 213, 108 


B717 24 AO 55 
-E 71A 35 - A 4 23 

B71D 16 74 10 
B720 45 B9 Cl 
B723 9 6 -14—0^ 
B726 98 10 65 
B729 82 


i CHARACTER NOT VALID IN THIS BASE 

NOMMSG . BYTE 36, 160, 85, 53, 164, 35, 22, 116, 16, 69, 185, 193, 150, 20, 5, 152, 1 


B72A 16 67 1C 
B72D 90 09 41 
-flT8Q- 9 6 12-G2- 

B733 E7 62 64 


-BT36-n 


- 9 6 - 


B739 53 03 10 
B73C 52 02 17 
-^73F A4 -5B-A 7— 
B742 04 23 01 
B745 B7 08 


_i-- 

NODMSG .BYTE 22,103,28,144,9,65,150,18,2,231,98,100 


i BINARY HEX OCTAL OVERFLOW 

-EOMSG- - r- BYTE— - 32 , E,-4-50:rE3,-3,-t6, 82, 2r 23r-164, 91,23, 4,35, 1, 183, I 


B747 15 6F DO 
B74A 62 31 84 
B74D 5 A 07 12 

B750 DE 40 30 


-NUMBER-STAGK-EMPTY 


NSEMSG .BYTE 21,111,208,98,49,132,90,7,18,222,64,48 


- B7 5 3 14 6 F D O 

B756 62 31 84 
B759 5A 07 10 
- B - 7 5 C IF BB - 


i NUMBER STACK FULL 

-NSFMSG- BYTE -EOrU llhrEOS, 98, 49i 132r90, 7, 16, 31, 187 


B75E 16 7E 23 
-B- 7 6 1 -5 4—7 3 18 

B764 45 AO 71 
B767 2D E4 03 


i OPERATOR STACK EMPTY 

OSEMSG .BYTE 22,126,35,84,115,24,69,160,113,45,228,3 


-;-BFER AT - O R S TACK FU LL--- 

B76A 15 7E 23 QSFMSG .BYTE 21,126,35,84,115,24,69,160,113,1,251,176 













































COLLEEN CALCULATOR, BY C SHAW 


B76D 54 73 18 
45 -AO - 
B773 01 FD DO 


NUMBER OUT OF RANGE 

t-BYTE -2Sr-H4T-20B/ 98 t-49, 127t 657 112,1 In 53r96, 2 


B779 62 31 7F 
B77C 41 70 11 
-H3 77F 35 -60-02^ - 


B782 15 47 71 
-B7a5 05^0 -3^1— 
B788 AO 55 35 
B78B A4 23 80 


B78E 18 E3 96 
B791 42 31 C7 
-^3994- -28- -16r9^- 
B797 li3 28 E7 
B79A 6C 


DIGMSQ . BYTE 


NOPMSG . BYTE 


TOO MANY CHARACTERS 

21, 71, 113, 213, 96, 49, 160, 85, 53, 164, 35, 128 


B79B 17 53 94 
B79E 05 D2 49 


CRYMSG . BYTE 


B7A4 30 IB 70 
B7A7 80 


B7A8 25 06 96 
B7AB 13 20 9F 
B7AE 93 28 lO - 

B7B1 69 48 10 
B7B4 F3 10 F3 


-B TN REQUIR ES-B-TTS 16 OR-LESS - - -„ 7~ 

37, 6, 150, 19, 32, 159, 147, 40, 16, 105, 72, 16, 243, 16, 243, 97, 115, 27, 40, 128 


B7BA 28 80 

i END OF PROGRAM MEMORY 

, _S7B^^8-26 TH-EFMSG-:-BYT^--247-3frr 1-93,-1127 4 77 227, 112, 3, 93, 29, 45, 115, 3 

B7BF 70 11 E3 
B7C2 70 03 5D 


' 73 


B7C8 03 


B7CC ID 98 D5 
B7CF 4A 05 


UNIT MISMATCH 

7 14B-, 29, 1527-213, 74,-5 - 


r-ST-ACK EMPTY- 


B7D1 12 A5 BD 
B7D4 18 45 AO 
-HB7P7 71 2D E4 - 


CLEMSG . BYTE 


18, 165, 187, 24, 69, 160, 113, 45, 228, 3 


CALL STACK FULL 

-lr7T-lr65,-187,-247-69,-t60j 113, 1, 251, 176 


B7DE 18 45 AO 
B7E1 71 01 FB 
B7E4 ^B0- 


*=*-1/256+1*256 ;GOTO NEXT PAGE BOUNDARY 

; ENTER PROGRAM MEMORY ADDRESS 0-1023 

-PROMSG- -t-B¥TE -55,^87-66T749r227i 112, 3,-93, 29, 45, 115-, 3, 21, 204 t50, 136, 16, 243, O, 242, 208, 243, 16, 


243, 0-, 243, 32, 243 ^ 


B803 31 E3 70 
B806 03 5D ID 
B80 9 2D 73 03 - 
BSOC 15 CC 32 













































->DMS 









































COLLEEN CALCULATOR. BY C SHAW 


B89E OB OF 2D 
BaAl-OF-3E-GD - 
BSAA 80 



ZDCDEG .BYTE i 1. 15. 45. 15. 62. 205, 128 _ _ _ 

i ->POLAR Y, X->Y=ANGLE, X=RADIUS . ^ = a-i_ < 5 = 1 ^ 01^48 _ 

_ZR€C-T_rWTE-^58r4-5rA-5^-5^.-231^1^1-.^9r3r 1-5, 44r5. 1 &r45rl-5r^62r-3. 15, 61 r-86^0r l-7&r4^5r 44r-2,-l-5r 6-l-r^53^0t^48 


B8C3 41 OF 2D 
B B C 6 -Q F 3E 33 - 
B8C9 A4 56 00 
B8CC FB 53 10 


ZPOLAR . BYTE 


->RECTANGULAR Y=ANOLE, X=RADIUS->Y, X _ __ __ ,__ , 

65, 15, 45, 15, 62, 50, 164, 86, 0, 251,83, 16, 48, 243, 213, 96, 11, 32, 242, 192, 32, 243, 211, 92, 159^128, 242^ 


B8D2 60 OB 20 
B8D5 F2 CO 20 


B8DB 9F 80 F2 
B8DE DO F3 EO 


->RE&TANGULAR Y=ANGLE, K=RADIA1S->Yt4C 


B8E1 30 F2 CO 
B8E4 20 


48, 242, 192, 32 


B8E5 06 D2 42 
B8E8 38 


B8E9 OB 07 9B 
BSEC 70 03 5D 
B8EF 80 - 


B8F0 OD 01 BF 


6, 210, 66, 56 


-KitQ©RAM&- 

11,7, 155, 112, 3, 93, 128 


FLUID OUNCES 

. BYTE 13, 1, 191, 156, 23, 246, 162, 128 


B8F6 A2 SO 


-^F8 -08 -C^ 00- - 
B8FB 32 28 


; DEGREES 

-ZDEfr-^YT^-8,-194,0, 50, 40— 


^1-0F-7D~ — S TAT EN - 


C ATARI CALCULATOR COPYRIGHT 1979 D ALG RAD DEC BITS16 FIX9 OFF 

—H3f T-5T-125, 17-, 17, 84, 83, 145, 165, 186, 251,84, 115, 26, 126, 3, 57, O, 5, 65, 15,49-, 15, 57, 15^, 55, 15,-57, 17- 


B900 11 11 54 
B903 53 91 A5 
B906 -5A-FB-54— 
B909 73 lA 7E 
B90C 03 39 00 
- B 9 0F 0 5-4i- 0F^ 
B912 31 OF 39 
B915 OF 37 OF 


B91B 9B 11 11 
B 9 1E 15 D5 -5-1— 

B921 13 5C 11 
B924 C2 A1 06 


L ATARI CALCULATOR COPYRIGHT 1979 : ALG RAD 

155, 17, 17, 21, 176, 1, 19, 92, 17, 194, 161, 6, 148, 128, 243, 16, 243, 97, 1, 144, 32, 243, 145, 112. 16, 1 


m 

# 


m 

f. 

# 

i #1 

f 

# 

t 

# 

0 

0 

1 

■' 0 


B92A 10 F3 61 



















































COLLEEN CALCULATORi BY C SHAW 


B92D 01 90 20 
H&930 F3-9-t-70- 




B933 10 11 11 
B936 10 


B937 31 OF 7C 
B93A 11 11 11 


CONTENTS I 


STKLIN . BYTE 49, 15, 124, 17, 17, 17, 132,90,7, 17, 17, 17, 15, 124,50,0, 17, 17, 17,26, 118,66, 100, 128, 247, 192 



I- B93D 84 5A 07 ... . 


B940 111111 

; B943 OF 7C 32 1 

1- B946 QQ—Mr—M 


B949 11 lA 76 

B94C 42 64 80 { 

- &94F-F7 GO - - . „ 


B951 23 26 42 

FSPMSG . BYTE 

ENTER FILE SPEC (NO QUOTES) 

35, 38, 66, 49, 1, 155, 33, 142, 42, 16, 242, 

134, 113, 9, 247, 

66 , 128,242, 144 

( 

¥ 

B957 21 SE 2A 

B95A 10 F2 86 < 

- -B95D 71 09 F7 _ _- 


1 B960 42 80 F2 

1 B963 90 





ABSVAL 

0 



B967 45 

i -&968 B4 5A 78 


•1 on an 4 on 

ACOS 

1 



B96B 45 CO 

. BYTE 

x OUj 7U rTk eft? .- . - - 

69, 192 

ADV 

2 



^ B96D 44 5B 00 

. BYTE 

68 , 91, 0 

ALGN 

4 



B973 35 6C 

. BYTE 

53, 108 

AND 

AKIKII IT TV 

5 


►[ 

B975 85 66 F9 
B97S 40 

. BYTE 

133, 102, 249, 64 

HiMIVv/ X r Y 




B979 34 58 96 

. BYTE 

52, 88, 150 

ATAN 

8 



B97E 64 06 5B 

. BYTE 

——- 69t- 69- 

100, 6, 91 

BAL 

9 



B9S1 40 69 

. BYTE 

64, 105 

BITS 

10 

11 


[ 

B?83 5ifif5 06 94- 

B9S6 86 06 84 

- : BYTE" 

. BYTE 

-1:01“, 6, 148" 

134, 6, 132, 46 

ESTEP 

12 



B989 2E- 

B98A 4A 5B 

. BYTE 

74, 91 

CALL 

13 


[ 

B98C B5 AC 20 

. BYTE 

181,172,32 

CELSIUS 

15 



# 

f 

t 

f 

# 

f 

f 

f 

c 

r 

f 

f 

t 

t 

f 

« 

# 


B992 9F 






































COLLEEN CALCULATOR, BY C SHAW 



-B993 

B996 

86 - 

5C 

-AO- 

-03- 

- r-BYTE-- 

1347-160r-3r92 

. _1-54,5,0,128,6) 

B99A 

80 

06 



-—t067-6©57-TD5 


D77C 

[ B99F 

45 

AB 

D2 

. BYTE 

69, 171, 210 


B9A2 

D7 

AB 

E3 

. BYTE 

215,171,227,112 


B9A5 

70 






B9A6 

03 

AB 


. BYTE 

3, 171 






' dvtc 

S'’ 171 


D-AO 

B9AB 

2A 



. BYTE 

42 


B9AC 

DB 

AD 

E6 

. BYTE 

219,173,230,201, 


B9AF 

C9 

64 

38 




B9B2 

4A 

A7 

DE 

. BYTE 

74, 167, 222, 178, £ 

* 

B9B5 

B2 

D2 

64 




B9B8 

8 A 

76 

49 

. BYTE 

138, 118, 73, 111 


B9BB 

6 F 






B9BC 

2B 

A7 

33 

. BYTE 

43, 167, 51, 43, 84, 

* 

B9BF 

2B 

54 

97 




^ B9C2 

63 

A7 


. BYTE 

99,167 

« 

1 





__1-32, 1-63, 92 


-B9G4- 

B9C7 

6 C 

AC 

20 

. BYTE 

108,172,32 


; B9CA 

03 

C2 


. BYTE 

3, 194 

.!# 

1 












164-, 194,0- 


B9CF 

6 C 

2B 

24 

. BYTE 

108,43,36 

» 

B9D2 

24 

C9 

04 

. BYTE 

36, 201, 4 

-60, =.16 


- B9D5- 




rDYTE 


ft 

B9D7 

32 

6 C 


. BYTE 

50, 108 

ft 

B9D9 

52 

64 

23 

. BYTE 

- - ■ BYTE- 

82, 100, 35 

-82, 2, 226- 


B9DF 72 02 E4 
— B 9 E2-2 6- 


114, 2, 228, 38 


B9E3 AO 15 A4 
D 9 C6 73 9 5 - 


. BYTE 


160, 21, 164, 115, 149 


CGRAD 


16 


CHGSGN 17 

CLINIT 18 

CLMEM 19 

CLPROG 20 

CLR 21 

CLX 22 

CM 23 

CMPNDINTRST--^24- 

COMPLEMENT 25 

CONTINUE 26 

CORRELATION -27^ 

eos - 28 - 

CRAD 29 

DCDEG 30 

DEC - 31- 

DEG 32 

DELETE 33 

DIV - 34 

DMS 35 

END 36 

ENTER 37 

EXPE 38 

EXPTEN 39 

FACTORIAL 40 


FAHRENHEIT 


41 















































COLLEEN CALCyLATDR, BY C SHAW 






B9E8 BD 01 50 
B9EB 53-26-05- 
B9EE 29 

-5 9EF 4 5 - 01 - 23- 

B9F2 45 01 96 


<# 


B9F5 C5 01 90 




B9FB OA 

,-B9FC-90 42 -5A - 

j B9FF 49 76 

L-BA0^l-40^ 40- 


BA03 47 01 04 
5A06-CF- 


BA07 27 01 04 
-5A Q A 73 - 




BAOB C4 00 5B 




BAOE 30 OD 
B A IO 50 07 4 7 

BA13 60 03 5D 

BA16 85 05 20 

B A 19 - 2 j- 

BAIA 97 96 AO 
B A ID 53 - 

BAIE 86 96 82 
-2A24 -34- 




BA22 89 64 20 
BA25 02 - 

BA26 36 96 4D 




m 


BA2A 40 70 
13A2C 03 07 
BA2E D3 DO 

BA30 64 B9 84 
BA33 6B 94 23 


.BYTE 189,1,80,83,38,5,41 


_^VTE-69^1^34- 

.BYTE 69,1,150 

• BYTE 197,1,144 

.BYTE-38T-lnr-t837-4& 

~.43¥-TE-- 1 44 , 1 9,90x72,-143 

.^¥T€- 

. BYTE 71,1,4,207 

■ BYTE 39,1,4,115 

. BYTE 196, 0, 91 

. BYTE 48, 13 

■ BYTE - 80, 7, 71 - 

. BYTE 96, 3, 93 

. BYTE 133, 5, 32 

BYTE --33-- 

.byte 151,150,160,82 

.byte 134,150,130,52 

.BYTE 137,100,32,2 

.byte 54,150,77,44 

.BYTE 64,112 

.BYTE 3,7 

■ byte - 211, 176 -“ 

.BYTE 100, 185, 132 

. BYTE 107, 148,35 

- " ■ BYT E- 130, - 1 -8 2 - 



FEET 42 

FIND 43 

FIX- -4A 

FLOZ 45 

FRACTION 46 

FV 47 

FVDUE 48 

FVORD 49 

GAL 50 

GM- &1 

GOTO 52 

GRAMS 53 

+1EX- 54- 

I 55 

INCHES 56 

INSERT 57 

INTEGER 58 

INTMED 59 

KG 60 

KM- 61 

LB 62 

LIST 63 

LITERS- 64 

LN 65 

LOGTEN 66 


COLLEEN CALCULATOR, BY C SHAW 





















































COLLEEN CALCULATOR, BY C SHAW 


6 

% 


BA38 7B 70 04 

. BYTE 

123, 112, 4, 38 




BA3C 6B 80 50 

. BYTE 

107, 128, 80 

LSHF 

67 


BA3F 16 D2 42 

BA42 38 

. BYTE 

22, 210, 66, 56 




BA43 5D 9B 28 

. BYTE 

93, 155, 40 

MLOAD 

70 


BA49 3D 7C 

. BYTE 

61,124 

MOD 

MSAVE 

71 


BA4B 6D 85 04 

. BYTE 

109,133,4 

N 

73 


BA4F 6D 65 F4 

. BYTE 

109, 101, 244, 154, 91, 217, 178 

NAUTICALMILES 74 


1 BA55 B2 

; 


NOP 

75 


BA58 E7 67 43 

. BYTE 

231,103,67,90 

NOTRACE 

76 


1 BA5C 2A 60 82 

1 nABcr ar\ r\f\ ba 

. BYTE 

42, 96, 130, 144, 0, 84 

NWEIGHT 

77 


'--few - 

BA62 37 A4 

. BYTE 

55, 164 

OCT 

78 


BA64 57 01 01 

. BYTE 

87, 1, 1 

ON 

80 


BA68 62 73 



« 

. BYTE 

98, 115 

OR 

81 


BA6A 37 OA 

BA6C 5E 5F 

. BYTE 

55, 10 

_ 94r9-5T 130_ - 

PAUSE 

82 

83 


BA6F 7E 23 A2 

. BYTE 

126, 35, 162, 100 

PERCENT 

84 


BA73 2E 

. BYTE 

46 

PI 

85 


BA74 95 EB 75 

— - nA77—AQ— 

. BYTE 

149, 235, 117 

PLOAD 

PMT 

1 

00 00 

N 0^ 


l»r\/ f UiJ L.U 


——-195i 237 

POLAR 

88 


BA79 45 E7 B5 

. BYTE 

69, 231, 181 







“ - POP- 

- -89“ 


BA7C 33 E7 

. BYTE 

51, 231 




-PA7F FA--F7—- 



POUNDS 

90 


at^/c, CO c/ ro 

BA81 C8 


230, 23tr"24’6, 200 - 




- BA82 6E 70 02 - 

- r^VTE - 

- Irt07-112, 130 - 

POWER 

91 















































COLLEEN CALCULATOR, BY C SHAW 


BASS 33 E3 


m 
m 

^ I 

s 

B 
# 

# 


BA87 C5 E3 96 

!-E3^0- 


. BYTE 


BASD 03 5D 

BA92 25 EF SO 


197,227, 150 
-7S7-227r-l-l&, 3 t-93- 


tBYTE- 


BA95 53 EO 

—BA97—46- E Q - 4 C 

BA9A F2 

- B A 9B 6 C 0 4 73 - 

BA9E C3 35 


BAAO C6 35 6C 
BAA3 7D 


. BYTE 
. BYTE 
-BYTE- 

■ BYT E-— 

. BYTE 
. BYTE 


BAA4 33 AB 


BAA9 37 A5 


-1-10,-1-33,-4 

37, 239, 128 
83, 224 

-707^524 , 76, 242 

--HO, 4, 115 

195, 53 

198,53, 108, 125 

51,171 

L63, 43, 1-58, 55, 1Y,5- 


BAAE 56 00 FB 
B1 53 



BAB8 64 37 74 


BABB 53 7F 6C 


BACO 63 SO 50 


BAC3 13 3F 
-BAe5-63-89 


BAC7 65 SB 7E 


BACA 26 8D 96 
BACD FS 


. BYTE 
. BYTE 
:-&YTE— 
. BYTE 
. BYTE 


BACE 58 EB FS 
~ BAD1 ^8-09-34— 


. BYTE 
-BYTE- 


BAD4 78 09 F5 
- B A 07 32 - 


- 188,-50,-164, 86 , 0, 2B1t 83 


83, 40, 36 

-99,-36, 243 

100,55,116 
83,127,108 

-S-ItESO- 

99, 128, 80 
19, 63 

— 99,-137- 

101,139,126 
38, 141, 150, 248 

88 , 235, 248 

-887-97-52-- 

120, 9, 245, 50 


PRINT 


93 


PROGRAM 94 

PSAVE 95 

PUSH 96 

PV - 97 

PVDUE 98 

PVORD 99 

RAD 100 

RANDOM -101 

RCL 102 

RECIPROCAL 103 


RECTANGULAR 104 


RESET 105 

RETURN 106 

ROOT 107 

ROUND 108- 

RPN 109 

RSHF 110 

RUN 111 

SIN 112 

SLOPE 113 

SMINUS 114 

- SPLUS- IT 5 

SORT 116 

SQUARE 117 


SSTEP 


118 

















































COLLEEN CALCULATOR, BY C SHAW 


0 


BADS 5B 84 2E . BYTE 8S, 132, 46 

BADB 38 47 . BYTE 56.71 

-&ADD^-38-4E- -^^^YTE-SArT'B- 

BADE 48 FO . BYTE 72,240 

BAEl 63 8F . BYTE 99, 143 

-BA E3-D3-^5-r-BYTE-21-lrT69 

BAE5 65 43 5A .BYTE 101,67,90 

BAE8 22 02 . BYTE 34, 2 

—BAEA 9Q -2A 05-r-BYTE- 144 , 42 , 5, Or 3 

BAED 00 03 



BAF2 D5 02 20 .BYTE 213,2,32 


BAF5 95 02 00 .BYTE 149,2,0 

B AF B 2 4 02 B 4-r^TE-180- 

BAFB 60 2D 25 . BYTE 96,45,37 

BAFE 64 02 62 BYTE 100,2,98 

-B BOl - 4 0 27 - ■ BYTE - 64, 39 

BB03 39 02 .84 .BYTE 57.2,132,204,32 


BBOS 4B 02 04 . BYTE 75,2,4,83, 149, 106 


BBOE 22 03 . BYTE 34, 3 


BBIO 60 35 3C . BYTE 96, 53, 60 

- BB-l^~8D-03 -96- — - BYTE- -139r3, 150, 66, 58, 46 

BB16 42 3A 2E 

~BBi"9-46-03-D2-HBYTE- - - 7 0, 3, 210,^6 

BBIC 56 

-BB^:D-90-3S-4e- t-BYTE-^144j-56t 76, 194, 4- 

BB20 C2 04 

-BlJg2~-B0-30 45-“BYTE-±767 487-69, 57, 86, 162, 0 

BB25 39 56 A2 
BB2e 00 


008E STAR = 142 

005B POWER = 91 

-eeSB - F A C TOR-=-45— 

0054 PERCEN = 84 


STO 


119 


STP 120 

SUB 121 

SUM- t22-— 

TAN 123 

TRACE 124 

X -125 

XCHGY 126 

XCHM 127 

XEQ 128 

XOE -129^— 

XLT 130 

XMEAN 131 

XNE 132 

XOR 133 

XSTDDEV 134 

XVARIANCE 135 

Y 136 

YARDS 137 

YINTERCEPT 138 

YMEAN 139 

YSTDDEV 140 


YUARIANCE 


141 
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oooc 

-0000-- 

BSTEP 

= 

12 



0024 
i 005E 

-0076- 

ZEND 

PROGRAM 


-0- 




36 

94 



0078 

0039 

STP 

INSERT 

= 

120 

57 









BB29 

PRIOTB 





BB29 DD EE E6 


. BYTE 


221, 238, 230, 237, 222, 221, 238, 221,221,238 

0 

BB2F EE DD DD 
BB32 EE 











BB33 ED DD ED 
BB36 ED DD DD 
j-B039 EE -DD EE- 


. BYTE 


CLR 

237, 221,237, 237, 221, 221, 238, 221, 238, 221 

0 

BB3C DD 






-BB3D DD BE DD- 




„„„ __ FAHRENHEIT 

0 

BB40 DE EE DD 
BB43 ED DD DE 
-BjB46 DE- 




221rr^222, 221, 222, 238, 221, 237, 221,222, 222 


BB47 DD DE DD 
-BB4A DA DD EA- 

' 

. BYTE 


KM 

221, 222, 221, 218, 221, 234, 238, 222, 238, 222 

0 

BB4D EE DE EE 
BB50 DE 






BB51 E5 DE AD 
BB54 EE DD D9 
-BB57 DE EE EE 


. BYTE 


OR 

229, 222, 173, 238, 221, 217, 222, 238, 238, 238 

0 

BB5A EE 






1-;-BB5B ED—BD -DE 

' 



RANDOM 

0 

BB5E E9 DE AE 

1 BB61 DD DD DD 

'-BB64 EE- 




237, 221 / 222, 233r222, 174, 221, 221,221, 238 


BB65 ED DD ED 
r--jm—nn- 


BYTE 


SUB 

237, 221,237, 221, 221, 221, 213, 221,221, 221 

0 

BB6B D5 DD DD 

BB6E DD 

BB6F DD 88 77 
BB72 22 10 

-aB74- 


BYTE 


-—- YVARIANCE 

221, 136, 119, 34, 16 

“ o 

BB74 B9 A5 CO 
-BD7^-AD-F9--A^- 


WORD 

SABSVA, 

SACOS,SADV,SALO,SALON,SAND,SANNUI,SASIN, SATAN, 

SBAL 


DB7A 16 A6 lA 
BB7D A6 IF A6 
-& 4 — 

DB83 A6 4C B4 
BBa6 6A BO 
B88--30-A6-5D— 


B TT - S, SB3TEP, 3CALL, SCBE^, 3 C EL3I, S CAR AB, SC H Q 3 G, SO L IN It-SCLMEM 
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f 


BB8E AA AD B2 
H3B9-1—AF-E A - A 6 
BB94 86 AF FE 
BB97 A6 07 A7 
— BB 9A- 1 4 A 7 - 

BB9C 39 AC 32 
BB9F A7 9E A2 
F 5 4 AF 48- 
BBA5 BO 38 A7 


BBAE SA AF 
BBBO 5C A7 41 
I A 7 46-A 7 - - 


SCLPRO,SCLR,SCLX,SCM, SCMPND, SCOMPL, SCONTI, SCORRE, SCOS, SCRAD 


SDCDEG,SDEC,SDEG,SDELET, SDIV, SDMS, SEND, SENTER, SEXPE, SEXPTE 


BBB6 FB AD 4B 
BBB9 A7 54 A7 
—BBBC- -24 4>D-60 
BBBF BO BF A7 
BBC2 C5 A7 
-BB€4-^B A 7 -FA - 


BBDO 44 A8 BO 
BBD3 BO 4E BO 
B B D 6 52 BO - 


. WQR&-SFAG-TOr SFAHRE, SFEETr SFIND, SFIX, SFLOZ, SFRACT, SFV, SFVDUE, SFVORD 


SGAL, SGM,SGOTO,SGRAMS, SHEX, SI, SINCHE, SINSER, SINTEG, SINTME 


SKG, SKM, SLB, SLIST, SLITER, SLN, SLOGTE, SLSHF, SMETER, SMILES 


BBF2 SC AC 7C 
BBF5 AF 7C A8 
BBF 8 82 AS 8 8 

BBFB AS 40 AF 
BBFE 50 AF 
-BGQO 11 A F 95 

BC03 AS lA AF 
BC06 26 B1 5C 


-SMbOADrSMOHr^SMSAVE, SN, SNAUTI, SNOP, SNOTRA, SNWEIG, SQCT, SOFF 


BCOC C9 AC 83 
BCOF B3 BA AS 
- ^C12 €3 AS-— 

BC14 ES AS 2A 
BC17 A9 66 AF 

BCID A9 3C A9 
BC20 E6 AE BF 
BC23 B1 4A A 9 

BC26 7E AO 
BC28 6A AF 76 
BC2B - A9 ^- D 3 - A9^ 

BC2E 66 AB F9 
BC31 AC EF AE 


SON,SOR,SOZ,SPAUSE,SPERCE,SPI, SPLOAD, SPMT, SPOLAR, SPOP 


. WORD SPOUND, SPOWER, SPRD, SPRINT, SPROGR, SPSAVE,SPUSH,SPV,SPVDUE,SPVORD 


BC37 B2 58 BO 
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% 

£ 

% 

% 

# 


BC8C C7 B2 D1 
BC8F B2 

- BC9 Q 89 AB 9 8- 

BC93 AB A7 AB 
BC96 B6 AB . 


BFFA 00 98 
BFFC 00 05 
- BFFE - E 4-9B- 


BC3A 

5C 

BO 




1-BG3G- 


-A9- 

-E5- 

--WORD 


BC3F 

BC42 

A9 

03 

F8 

AA 

A9 

08 


otwjy, 5DKftNL»U, oRti_, bHtC IP , SRECTA, SRESET, SRETURt^SROOT-, SRGUNDt SRPN 

-BC-4'5 

-AA- 

-0^ 

-AO- 



BC48 

E3 

AD 

37 



BC4B 

AA 

51 

AA 



-BG4E- 

-3B- 

-AA- 




BC50 

5E 

AA 

12 

. WORD 

SRSHF, SRUN, SSIN, SSLOPE, SSMINU, SSPLUS, SSQRT, SSQUAR, SSSTEP,SSTO 

BC53 

AD 

AA 

B3 


-BG#6- 

-SA- 

HFFT 

-88- 



BC59 

B2 

8C 

B2 



BC5C 

BA 

B4 

AB 



-BC5F 

-AA- 

-TO 

-A€- 



BC62 

B1 

AA 




BC64 

24 

AD 

D2 

. WORD 

SSTP,SSUB,SSUM, STAN, STRACE, SX, SXCHGY, SXCHM,SXEQ,SXGE 

-&C67 

-AA- 

-OB- 

-AA- 


BC6A 

E7 

AA 

CD 



BC6D 

AC 

2A 

B3 



-BC7Q 

-F9- 

-AA- 

-02- 



BC73 

AB 

4C 

AD 



BC76 

55 

AD 




-BC78 

-60- 

-AO 

139 

-------i.tf^OT*V_gvi T Vhltt!!'A Kt o V Mf*" C? Vmg g Vg*T'r\r\ mv/llAl-V’T 

BC7B 

BC7E 

B2 

2D 

6B 

AB 

AD 

Cl 

. &M=^h-;3^*P1tAr4r-SANE, S9(0R7-SXSTDD, SXVARI, SYj^YARDS, SYINTEj^YMEAN — 

-BC81 

-B2- 

-00- 

B2 



BC84 

18 

B3 

4C 



BC87 

-BG8A- 

AF 

-BD- 

3C 

-B2- 

B3 




. WORD SYSTDD,SYVARI 

r-WGRB-SFMUt, SPD I^»^,-SPADD, SPSlfB 


-*»^AO0Oh-^^OO-6- 

.WORD START 
.BYTE 0, 4+1 

—-r-WORT) - TN TT - 

. END 


-} CARTRIDGE START INFO 
;COLD/WARM START ADDRESS 
;BOOT DISK & RUN CARTRIDGE 
i POWER UP STAFT VECTOR - - 



























































COLLEEN CALCULATOR/ BY C SHAW 


SYMBOL TABLE 

-AL^QP ©G02-ALGP——GOO 1 — 

ARCSUB A49D ASAGE OOAC ASMBL 0000 

ATAN2 B4A9 ATCOEF DFAE ATNOUT B4B7 

■AUBFI-DaOO-BAGKSP-007E-BB05 -A5A0— 

BB20 A5B0 BB30 A585 BBLPl A563 

BBLP3 A5a7 BIMSG B7A8 BINIO 9CAF 

-0004-B-INaO-9GE2-B4^MARY— ^BB— 

BINERR 9CA0 

BINLP2 9C92 

BITfiNa- 00B5- 
BLNK16 A358 

BRKLST ACB8 


I BINCHK 9C7A 
j BINFP2 9CA8 

-B4^v^QK-9G8A- 

BITMSG B776 
BOMSG B736 
B T5M SC B S 3 9 
I CALSTK 0B80 
CHRTAB B6GC 

I GiOGAL—AEAB-G40V- 

CLFMSG B7DB 
CLOSE OOOC 


BINER2 9C9E 
BINLPl 9C80 
B-ITBIN—00B1-- 
BLKBUF OBOO 
BRKKEY 0011 


COLCMD 0014 
CONVIO AFAF 
i CRSIM H—G2FG— 
CRYSND ABBE 
CURPRI 00A3 


DGRTN 9E14 
DHOERR A19B 
DIGRT - OG F l - 


-1PT8-BA3G-GA503A—BA30 - 

CDGR AF8C CDTMF3 022A 

CHS30 A326 CHSTAT A30D 

-E456^-G^4(-G10F2- 

CLLP A70B CLNLP 9CE7 

CLP 0000 CLRPTR 008C 

MSG—B8AF-GNaMSG--BS7B 

COLORS 0055 CONERR AFC3 

CONVRN AFC2 CONVRT AF8E 

CRYC HK_ABBC_CRY CLR _aBC 7 

CTLR A352 CTLR17 A350 

DALG 0006 OBITS 0018 


A35A 

OOOC 


DMCLR 

DNAROW 


DSPM4 9046 
OSTIO A608 
9 A 5F 


EN0LP3 

ENOWLP 



A71B OMELP 90IB 
0010 OOFF 0020 

OOCA_0SPM2_9030' ■ 

902E OSPRG 9097 

A6B9 OSTLP A6C0 

OOED- ENDLI O— ^1 

9A4C EN0LP4 9A56 

9A41 ENOWRO 9B3A 

lOUALr-0094 - 

9C13 ERRSUB 9BE5 

OOEF EXEC 0002 

^DC-e- 
0A66 FAHMSG BS66 

AE4S FOIV OB28 


FOSCOM 9E50 
FHALF 0F6C 
FLDO M-A034— 


9E73 

009B 


FOSP1 9E92 
FIXMSG BBID 


FLDOT A047 
FLOIT A04E 


FLO IP 
FLPTR 


DD9C 

OOFC 


-FMVPOP-A07B- 


FLOIR 

FMOVE 


0098 

00B6 


-ANNFLG BB68 
ATANl B46F 
AUDCl 0201 

-BBIG-A574 

BBLP2 A576 
BINIOO A65C 
—BH^GIO—9C90 
BINFP 9CA3 
BINMIN 00B9 

- B tTINT - -OOA7 
BLNKS 
BSTEP 

- GALPTR 0B6E 
CELMSG B85A 
CHTAB2 B605 
4;LEMSG B7B1 
CLNUM 9CE3 
CLRTAB 009E 

-GN3MSG- B886 
CONFLG 0002 
CR 009B 

—GRYMSG B79B 
CTLRS 0B26 
OOEC 0010 

-DELGHR—OOFE 

OGIO 90A2 
0070 9E07 

-9DCB 
OHOCHK A16C 
OIGMSG B782 

-OMl^-9050- 

OMEMAL 9014 
OOLOP AB2F 
1>SPM3 9047 
OSPSTK 9051 
OUEFLG 0B67 
-eNBL2G - 9027— 
ENDLST 9B13 
ENTFLG 0B69 
-ERRFL^ 0B6C 
ERRTBL B700 
EXEC10 9A8E 
FABCD -AaiC 
FASC 08E6 
FDLP2 9EC4 
- 9E07- 
F0SP2 9E97 
FIXNUM OOCE 

-FfcBOS-A03B - 

FLOIS A041 
FM0VE2 A06F 


—F Q PgQ-AE8B— 

F0PLP2 AE74 
FP20 9E2C 


F0P30 AE8F 
F0PLP3 AE6B 



FPSHLD A0B3 FPSLEN 002A 


FPQPO A07E 
FPPTR 00A4 
FPSH05- -A0A2- 
FPTR2 OOFE 



























A4D5 MEMLDR A4D7 

B845 MEMMUL A4FE 

'-MEMSTQ—-MEMSyfi A4E^- 

MLD20 A4E5 MQDFAC 0B4C 

MSAV15 AF3A MSAV20 AEE5 

- NC KIQ-t^2^3- 


MAS AF70 
MEMA20 B259 
liEt1b0O-~-A4e9- MEMLtD ir~ A4«F 


INTCMP 
INTFLG 
I-NTSUB 
lOERR 
JMPTR2 
-KEYIO 
KEY40 
KEYCHR 
-H^E¥bN2--008.4 
KEYWRD B964 
KYCNSV 0093 

—LBPR2-&57F 

LDCHIO A222 
LDI AFDO 

—bDNBSV- OOSB 
LENERR 9BC6 
LEX02 9ABC 
-LEXRTN 
LMARG 
LOOP 
-LOP20 
LPAD 
LXERR2 
-trXLF20 
LXNDOT 
LXSAVO 
-MA'IN04 
MAIN20 
MAIN50 
MA INT^fr- 99De- 
MASS B672 
MEMADD B245 


A28D 

OOAA 

ABBO 

AEB4 

0097 

9B02 

A42C 

0088 


9BD8 

0001 

98BC 

AB5B 

0095 

9B59 

9AA5 

9B54 

9BD6 

9978 

9CFF 

99B4 




MEMLEN 0064 
MEMNUM OOAF 

“MINUS-OOFl 

MS10 A4F0 
NATCF OOOB 


NERR AC06 
NOMMSG B717 
--N0ST03 -995B 
NSEMSG B747 


NQDMSG E72A 
NOPFLG 009F 
-NQSTQR—994e- 
NSFMBG B753 


NOEXEC 
NOPMSG 
NSCF - 
NSIGN 


9A95 

B78E 

0006 

OOEE 


MEMLOD AFDE 
MEMORY 0800 

-MtM^-A4E1— 

MSAUIO AF21 
NCHKLD A23C 

-00A9- 

NOMAT AD72 
NOSNER B3C7 
-NSEFt^- ■ OOFA- 
NUMBER 0096 





















COLLEEN CALCULATOR, BY C SHAW 


L 


NUMLEN 
QPFLG - 
OPSLEN 
OUTPUT 
^T>G4MAX 
PCINC 
PCN20 


0008 

000F-- 

A276 

A275 


- PHI^H-GOOD 


DFFO 

0002 

A2BA 

A928 

0007 


NUMFLG OOAB 

. -GFEN-GOOa - 

I OPPTR 00A5 
1 OSFMSG B76A 

I-pe- 00G6 - 

PCADDN A27A 
PCNIO A271 

:-PERGEN—0054- 

PI0V18 B636 
, PLPAD 0000 
'—T^LYEVL—DD40 
POPNIO A911 
POWER 005B 

,-PR^LEN—^400^- 

PRNCHK A3AE 
I PROMSG B800 

PSPEG OOOE 
PTGHR A2F2 

I-FTGRFN—A-3&1 

, I PTLP 987A 
j PUTBLK A023 

I-PUTGMD- 

PUTMSG 9C6A 
RAMCLR A3C4 

-RETN2-A3&9- 

RF105 9F7B RFllO 9FB4 

RF140 9FB7 RF142 9FD6 

RF4AG-9FFAr-RF47G-A002 

RF40 9F2B RF50 9F30 

' RF90 9F5F RFERR 9F6D 

I- RFLP3 -9F92- RFL P4-9FA2-- 


PI0V4 
PLRPAR 
PGP 10 
P0PN20 
PPLUS 
PRGMEM OGOG- 
PRNFLG 009D 
PRUPRI 00A2 

PSHIG-A2GT^ 

PSPEC2 OOOA 
PTCHR2 A2F4 
P-TDEL2 - A2D6 
PTMSG2 9C6C 
PUTBRT 


0010 GFFERR A909 GNESUB ABC8 

.Q09E-QPNIN-AE51. OPNOUT AE55 

0100 OPSTK 0700 OSEMSG B75E 

PAND 0006 PBUFF B6BB 

PGADD-A27G-PGAODl—A28A 

PGLRO A29E PCN05 A26E 

PCNGHK A262 PEQUAL 0001 

PTGQNS—B6G0-PIOCB --GG20 

PIGVL A509 PKPTR 008G 

PLUS 0090 PLYARG 05E0 

-PGPGIO- AD8F PGPGAL -AD84 

POPOP A2B0 PGR 0005 

PPGWER 0009 PREVOP OOAl 

-PRTGTB- GB29-- PRMFLG -009G 


A033 


QUADFL 

RAMSET 


00C5 

A3C6 


I RMARGN 0053 

U ROWSCR 0010 
RTYVRQW—0OH=^ 
SAC10 A5C4 
SACOS A5C0 


RQWCMD 0016 

RQWSTT 0001 

S-180P4- -Asee 

SAC30 A5CA 

SADY A5F9 

^ALG-IG—A6tG-SALGN- A61A 

L SASIO A637 SASIN A624 

SAVMAT A3EA SBAL B06A 

SBAL4- 5 -BO80-SBAEGO—B0BG-SfiGLS 

SB IN A63D SB ITO A674 SB ITS 

SBLPl A692 SBLP2 A69E 

-SBST-10—ABE5- SBST30—ABFD 

I SBSTEP ABD2 SCALIO ADC2 

SC ALL ADAA SC DEG AF82 

'-SCHlrO-A70A-SCHGSG A6FE 

SCLP2 A514 SCLPRO AC39 

SCLX A29E SCM AF54 

SeMPNET—6048- SCGEF- —B6J06- 


PROG 00C8 
PRVSTK OOBO 
-PSHC-IG -ADA2 
PTABC A2FC 
PTCHS2 A366 
—PT-IMES—0008 
PTTXTP A3BA 
PUTCHR OOOB 
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COllLEEN CALCULATOR, BY C SHAW 
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